Mercurial > emacs

comparison lisp/mail/rmail.el @ 8506:07a5f6c2bc9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-forward): Anchor `mail-header-separator' on both sides to match whole line, not just initial substring.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Aug 1994 07:02:35 +0000
parents 0e699538d256
children a0af63b5bc45
comparison
equal deleted inserted replaced
8505:d3f7cadf8c95 8506:07a5f6c2bc9f
2007 rmail-current-message))) 2007 rmail-current-message)))
2008 (save-excursion 2008 (save-excursion
2009 ;; Insert after header separator--before signature if any. 2009 ;; Insert after header separator--before signature if any.
2010 (goto-char (point-min)) 2010 (goto-char (point-min))
2011 (search-forward-regexp 2011 (search-forward-regexp
2012 (concat "^" (regexp-quote mail-header-separator))) 2012 (concat "^" (regexp-quote mail-header-separator) "$"))
2013 (forward-line 1) 2013 (forward-line 1)
2014 (insert-buffer forward-buffer)))))) 2014 (insert-buffer forward-buffer))))))
2015 2015
2016 (defun rmail-resend (address &optional from comment mail-alias-file) 2016 (defun rmail-resend (address &optional from comment mail-alias-file)
2017 "Resend current message to ADDRESSES. 2017 "Resend current message to ADDRESSES.