X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-draft.el;h=42fe694d558189680daee811efa5ab7a6b895e80;hb=4cacb5f23eb830e6950dba987063f413977708d7;hp=c941bb31c912e8ee329a3894d239d4fd5279c3f1;hpb=6d10b2a907addb9acc61dff650adff0e182fb6ad;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index c941bb3..42fe694 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,6 +1,7 @@
 ;;; gnus-draft.el --- draft message support for Semi-gnus
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
-;;        Free Software Foundation, Inc.
+
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;;   2005 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;;	MORIOKA Tomohiko <morioka@jaist.ac.jp>
@@ -21,8 +22,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -146,6 +147,7 @@
                                   message-setup-hook))
          (gnus-agent-queue-mail (and (not is-queue)
                                      gnus-agent-queue-mail))
+	 (rfc2047-encode-encoded-words nil)
          type method move-to)
     (gnus-draft-setup article (or group "nndraft:queue"))
     ;; We read the meta-information that says how and where
@@ -277,12 +279,13 @@
 	    `(lambda (arg)
 	       (gnus-post-method arg ,(car ga))))
       (unless (equal (cadr ga) "")
-	(message-add-action
-	 `(progn
-	    (gnus-add-mark ,(car ga) 'replied ,(cadr ga))
-	    (gnus-request-set-mark ,(car ga) (list (list (list ,(cadr ga))
-							 'add '(reply)))))
-	 'send)))))
+	(dolist (article (cdr ga))
+	  (message-add-action
+	   `(progn
+	      (gnus-add-mark ,(car ga) 'replied ,article)
+	      (gnus-request-set-mark ,(car ga) (list (list (list ,article)
+							   'add '(reply)))))
+	   'send))))))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."