/[emacs]/emacs/lisp/mail/rfc2368.el
ViewVC logotype

Diff of /emacs/lisp/mail/rfc2368.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.18.3 by miles, Fri Mar 19 23:29:23 2004 UTC revision 1.3.18.4 by miles, Tue Jul 6 09:14:28 2004 UTC
# Line 120  calling this function." Line 120  calling this function."
120            ;; deal w/ multiple 'To' recipients            ;; deal w/ multiple 'To' recipients
121            (if prequery            (if prequery
122                (progn                (progn
123                    (setq prequery (rfc2368-unhexify-string prequery))
124                  (if (assoc "To" headers-alist)                  (if (assoc "To" headers-alist)
125                      (let* ((our-cons-cell                      (let* ((our-cons-cell
126                              (assoc "To" headers-alist))                              (assoc "To" headers-alist))
127                             (our-cdr                             (our-cdr
128                              (cdr our-cons-cell)))                              (cdr our-cons-cell)))
129                        (setcdr our-cons-cell (concat our-cdr ", " prequery)))                        (setcdr our-cons-cell (concat prequery ", " our-cdr)))
130                    (setq headers-alist                    (setq headers-alist
131                          (cons (cons "To" prequery) headers-alist)))))                          (cons (cons "To" prequery) headers-alist)))))
132    

Legend:
Removed from v.1.3.18.3  
changed lines
  Added in v.1.3.18.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26