Mercurial > emacs

changeset 88295:d8903e2bde16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output): Make sure headers are properly hidden after output. Avoid pointless with-current-buffer call.
author Henrik Enberg <henrik.enberg@telia.com>
date Wed, 25 Jan 2006 20:21:48 +0000
parents a258002ae163
children dbb6c312383a
files lisp/mail/rmailout.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Wed Jan 25 16:40:26 2006 +0000
+++ b/lisp/mail/rmailout.el	Wed Jan 25 20:21:48 2006 +0000
@@ -203,7 +203,8 @@
 		      (insert msg-string)))))))
 	  (unless noattribute
 	    (when (equal major-mode 'rmail-mode)
-	      (rmail-set-attribute "filed" t)))
+	      (rmail-set-attribute "filed" t)
+	      (rmail-header-hide-headers)))
 	  (setq count (1- count))
 	  (unless from-gnus
 	    (let ((next-message-p
@@ -212,12 +213,9 @@
 		     (when (> count 0)
 		       (rmail-next-undeleted-message 1))))
 		  (num-appended (- orig-count count)))
-	      (when (and next-message-p original-headers-p)
-		(rmail-toggle-header))
 	      (when (and (> count 0) (not next-message-p))
-		(error (with-current-buffer rmailbuf
-			 (format "Only %d message%s appended" num-appended
-				 (if (= num-appended 1) "" "s"))))
+		(error (format "Only %d message%s appended" num-appended
+			       (if (= num-appended 1) "" "s")))
 		(setq count 0)))))))))
 
 ;;;###autoload