[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/23 06:20:27

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-reply): Don't try to add a References header when replying to
        mail without References or Message-Id.  (Bug#4525)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16239&r2=1.16240
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.547&r2=1.548

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16239
retrieving revision 1.16240
diff -u -b -r1.16239 -r1.16240
--- ChangeLog   23 Sep 2009 02:35:33 -0000      1.16239
+++ ChangeLog   23 Sep 2009 06:20:23 -0000      1.16240
@@ -1,3 +1,8 @@
+2009-09-23  Glenn Morris  <address@hidden>
+
+       * mail/rmail.el (rmail-reply): Don't try to add a References header when
+       replying to mail without References or Message-Id.  (Bug#4525)
+
 2009-09-23  Adrian Robert  <address@hidden>
 
        * term/ns-win.el (ns-reg-to-script): New variable.

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.547
retrieving revision 1.548
diff -u -b -r1.547 -r1.548
--- mail/rmail.el       15 Sep 2009 08:11:42 -0000      1.547
+++ mail/rmail.el       23 Sep 2009 06:20:27 -0000      1.548
@@ -3537,10 +3537,12 @@
                   (aref rmail-msgref-vector msgnum))
                 rmail-answered-attr-index))
      nil
+     (if (or references message-id)
      (list (cons "References" (if references
-                                 (concat (mapconcat 'identity references " ")
+                                     (concat
+                                      (mapconcat 'identity references " ")
                                          " " message-id)
-                               message-id))))))
+                                   message-id)))))))
 
 (defun rmail-mark-message (buffer msgnum-list attribute)
   "Give BUFFER's message number in MSGNUM-LIST the attribute ATTRIBUTE.