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 |
|
|