/[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.6 by eliz, Sun Mar 7 20:00:41 2004 UTC revision 1.7 by eliz, Tue May 11 09:41:20 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.6  
changed lines
  Added in v.1.7

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