*** empty log message ***

[gnu-emacs] / lisp / mail / rfc2368.el

diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el
index 07ea44cef04d667a2ba96ed2045b0a80c03525d8..5d603d7be26672316b6f9cd685083b4868edae64 100644 (file)
--- 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)))))