Import Oort Gnus v0.13.

[elisp/gnus.git-] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5aebc44..286e8f1 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -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))