procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rfc2368-parse-mailto-url): Make the results of

Browse source 
parsing "mailto:addr1%2C%20addr2", "mailto:?to=addr1%2C%20addr2",
and "mailto:addr1?to=addr2" equal.
This commit is contained in:
Eli Zaretskii 2004-05-11 09:41:20 +00:00
parent ac00945e6e
commit 860e1e0f9f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/rfc2368.el
View file

@ -120,12 +120,13 @@ calling this function."
;; deal w/ multiple 'To' recipients
(if prequery
(progn
(setq prequery (rfc2368-unhexify-string prequery))
(if (assoc "To" headers-alist)
(let* ((our-cons-cell
(assoc "To" headers-alist))
(our-cdr
(cdr our-cons-cell)))
(setcdr our-cons-cell (concat our-cdr ", " prequery)))
(setcdr our-cons-cell (concat prequery ", " our-cdr)))
(setq headers-alist
(cons (cons "To" prequery) headers-alist)))))