mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases 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
Show Stats 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))