X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=d219a9dc46ab222b104ea7f59009b15197967d30;hb=88a2cbade926ab994768b63e407390a44762941c;hp=5aebc44d5687c6ff5c9a495769805ad731a43ea9;hpb=c9a326c848f0dcecef01c33349a96b1d1da44163;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5aebc44..d219a9d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -235,14 +235,14 @@ This variable is used only when `gnus-post-method' is `current'."
 
 (defcustom gnus-message-replysign
   nil
-  "Automatically sign replys to signed messages.
+  "Automatically sign replies to signed messages.
 See also the `mml-default-sign-method' variable."
   :group 'gnus-message
   :type 'boolean)
 
 (defcustom gnus-message-replyencrypt
   nil
-  "Automatically encrypt replys to encrypted messages.
+  "Automatically encrypt replies to encrypted messages.
 See also the `mml-default-encrypt-method' variable."
   :group 'gnus-message
   :type 'boolean)
@@ -518,7 +518,7 @@ Gcc: header for archiving purposes."
    `(set-window-configuration ,winconf) 'exit 'postpone 'kill)
   (let ((to-be-marked (cond
 		       (yanked yanked)
-		       (article (list article))
+		       (article (if (listp article) article (list article)))
 		       (t nil))))
     (message-add-action
      `(when (gnus-buffer-exists-p ,buffer)
@@ -1639,6 +1639,8 @@ this is a reply."
 			      group (gnus-status-message method))
 		(sit-for 2))
 	      (when (and group-art
+			 ;; FIXME: Should gcc-mark-as-read work when
+			 ;; Gnus is not running?
 			 (gnus-alive-p)
 			 (or gnus-gcc-mark-as-read
 			     gnus-inews-mark-gcc-as-read))