diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-05-11 09:41:20 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-05-11 09:41:20 +0000 |
| commit | 860e1e0f9f65dd7f65e106a900305aa55a4000c0 (patch) | |
| tree | c299f5aa4e004afcb32ec1813d83b408fbc1a2bf | |
| parent | ac00945e6ed2f53132dc7416062e168c376345bf (diff) | |
| download | emacs-860e1e0f9f65dd7f65e106a900305aa55a4000c0.tar.gz | |
(rfc2368-parse-mailto-url): Make the results of
parsing "mailto:addr1%2C%20addr2", "mailto:?to=addr1%2C%20addr2",
and "mailto:addr1?to=addr2" equal.
| -rw-r--r-- | lisp/mail/rfc2368.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index 07ea44cef04..5d603d7be26 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el @@ -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))))) |