diff options
Diffstat (limited to 'lisp/gnus/nnweb.el')
| -rw-r--r-- | lisp/gnus/nnweb.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el index 7c0c8e0e444..d020d533aea 100644 --- a/lisp/gnus/nnweb.el +++ b/lisp/gnus/nnweb.el | |||
| @@ -366,14 +366,15 @@ Valid types include `google', `dejanews', and `gmane'.") | |||
| 366 | (mm-url-decode-entities) | 366 | (mm-url-decode-entities) |
| 367 | (search-backward " - ") | 367 | (search-backward " - ") |
| 368 | (when (looking-at | 368 | (when (looking-at |
| 369 | " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?[^\n]+by ?\n?\\([^<\n]+\\)\n") | 369 | "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?") |
| 370 | (setq From (match-string 4) | 370 | (setq Date (format "%s %s 00:00:00 %s" |
| 371 | Date (format "%s %s 00:00:00 %s" | ||
| 372 | (match-string 1) | 371 | (match-string 1) |
| 373 | (match-string 2) | 372 | (match-string 2) |
| 374 | (or (match-string 3) | 373 | (or (match-string 3) |
| 375 | (substring (current-time-string) -4))))) | 374 | (substring (current-time-string) -4)))) |
| 376 | 375 | (goto-char (match-end 0))) | |
| 376 | (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)") | ||
| 377 | (setq From (match-string 1))) | ||
| 377 | (widen) | 378 | (widen) |
| 378 | (forward-line 1) | 379 | (forward-line 1) |
| 379 | (incf i) | 380 | (incf i) |