mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(url-mailto): Insert body after mail-header-separator if present, so

Browse source 
that is is before signature.  Suggested by Leo Liu <sdl.web@gmail.com>.
This commit is contained in:
Chong Yidong 2007-05-29 15:31:08 +00:00
parent 345c7f05d8
commit f93e42baac
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/url/url-mailto.el
View file

@ -100,7 +100,9 @@
(while args
(if (string= (caar args) "body")
(progn
(goto-char (point-max))
(goto-char (point-min))
(or (search-forward (concat "\n" mail-header-separator "\n") nil t)
(goto-char (point-max)))
(insert (mapconcat
#'(lambda (string)
(replace-regexp-in-string "\r\n" "\n" string))