Show
Ignore:
Timestamp:
2006年08月18日 08時35分31秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/gnus/nnweb.el

    r4131 r4148  
    367367      (search-backward " - ") 
    368368      (when (looking-at 
    369              " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?[^\n]+by ?\n?\\([^<\n]+\\)\n") 
    370         (setq From (match-string 4) 
    371               Date (format "%s %s 00:00:00 %s" 
     369             "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?") 
     370        (setq Date (format "%s %s 00:00:00 %s" 
    372371                           (match-string 1) 
    373372                           (match-string 2) 
    374373                           (or (match-string 3) 
    375                                (substring (current-time-string) -4))))) 
    376  
     374                               (substring (current-time-string) -4)))) 
     375        (goto-char (match-end 0))) 
     376      (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)") 
     377        (setq From (match-string 1))) 
    377378      (widen) 
    378379      (forward-line 1)