630 |
(setq subject (concat " (" (match-string 1) ")")) |
(setq subject (concat " (" (match-string 1) ")")) |
631 |
(when (re-search-forward "^From: \\(.*\\)" nil t) |
(when (re-search-forward "^From: \\(.*\\)" nil t) |
632 |
(setq from (concat "<" |
(setq from (concat "<" |
633 |
(cadr (funcall gnus-extract-address-components |
(cadr (funcall gnus-extract-address-components |
634 |
(match-string 1))) ">"))) |
(match-string 1))) ">"))) |
635 |
(if (re-search-forward "^Date: +\\([^(]*\\)" nil t) |
(if (re-search-forward "^Date: +\\([^(]*\\)" nil t) |
636 |
(setq date (match-string 1)) |
(setq date (match-string 1)) |