Mercurial > emacs

comparison lisp/mail/rmail.el @ 105158:bbb939ac799d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-reply): Don't try to add a References header when replying to mail without References or Message-Id. (Bug#4525)
author Glenn Morris <rgm@gnu.org>
date Wed, 23 Sep 2009 06:20:23 +0000
parents a07fd035c1b0
children d59e748dff99
comparison
equal deleted inserted replaced
105157:33cdbbd76097 105158:bbb939ac799d
3535 rmail-buffer 3535 rmail-buffer
3536 (with-current-buffer rmail-buffer 3536 (with-current-buffer rmail-buffer
3537 (aref rmail-msgref-vector msgnum)) 3537 (aref rmail-msgref-vector msgnum))
3538 rmail-answered-attr-index)) 3538 rmail-answered-attr-index))
3539 nil 3539 nil
3540 (list (cons "References" (if references 3540 (if (or references message-id)
3541 (concat (mapconcat 'identity references " ") 3541 (list (cons "References" (if references
3542 " " message-id) 3542 (concat
3543 message-id)))))) 3543 (mapconcat 'identity references " ")
3544 " " message-id)
3545 message-id)))))))
3544 3546
3545 (defun rmail-mark-message (buffer msgnum-list attribute) 3547 (defun rmail-mark-message (buffer msgnum-list attribute)
3546 "Give BUFFER's message number in MSGNUM-LIST the attribute ATTRIBUTE. 3548 "Give BUFFER's message number in MSGNUM-LIST the attribute ATTRIBUTE.
3547 This is use in the send-actions for message buffers. 3549 This is use in the send-actions for message buffers.
3548 MSGNUM-LIST is a list of the form (MSGNUM) 3550 MSGNUM-LIST is a list of the form (MSGNUM)