Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-save.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 4103f0995bd7
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
140 vm-message-pointer (cdr vm-message-pointer)))) 140 vm-message-pointer (cdr vm-message-pointer))))
141 ;; fix mode line 141 ;; fix mode line
142 (intern (buffer-name) vm-buffers-needing-display-update) 142 (intern (buffer-name) vm-buffers-needing-display-update)
143 (vm-update-summary-and-mode-line)) 143 (vm-update-summary-and-mode-line))
144 (if (zerop archived) 144 (if (zerop archived)
145 (message "No messages archived") 145 (message "No messages were archived")
146 (message "%d message%s archived" 146 (message "%d message%s archived"
147 archived (if (= 1 archived) "" "s"))))) 147 archived (if (= 1 archived) "" "s")))))
148 148
149 (defun vm-save-message (folder &optional count) 149 (defun vm-save-message (folder &optional count)
150 "Save the current message to a mail folder. 150 "Save the current message to a mail folder.
484 (narrow-to-region (vm-vheaders-of m) (vm-text-end-of m))) 484 (narrow-to-region (vm-vheaders-of m) (vm-text-end-of m)))
485 (t (narrow-to-region (point) (vm-text-end-of m)))) 485 (t (narrow-to-region (point) (vm-text-end-of m))))
486 (let ((pop-up-windows (and pop-up-windows (eq vm-mutable-windows t)))) 486 (let ((pop-up-windows (and pop-up-windows (eq vm-mutable-windows t))))
487 (call-process-region (point-min) (point-max) 487 (call-process-region (point-min) (point-max)
488 (or shell-file-name "sh") 488 (or shell-file-name "sh")
489 nil buffer nil "-c" command))) 489 nil buffer nil shell-command-switch command)))
490 (setq mlist (cdr mlist))) 490 (setq mlist (cdr mlist)))
491 (set-buffer buffer) 491 (set-buffer buffer)
492 (if (not (zerop (buffer-size))) 492 (if (not (zerop (buffer-size)))
493 (vm-display buffer t '(vm-pipe-message-to-command) 493 (vm-display buffer t '(vm-pipe-message-to-command)
494 '(vm-pipe-message-to-command)) 494 '(vm-pipe-message-to-command))