/[emacs]/emacs/lisp/gnus/nndoc.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nndoc.el

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

revision 1.5 by zsh, Fri Jun 21 18:56:00 2002 UTC revision 1.6 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 630  from the document.") Line 630  from the document.")
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))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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