[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v |
Date: |
Mon, 19 Feb 2007 00:49:14 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 07/02/19 00:49:14
Index: nnweb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnweb.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- nnweb.el 5 Feb 2007 05:37:56 -0000 1.29
+++ nnweb.el 19 Feb 2007 00:49:13 -0000 1.30
@@ -367,13 +367,15 @@
(goto-char (point-max))
(when
(re-search-backward
- "^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
+ "^\\(?:\\(\\w+\\) \\([0-9]+\\)\\|\\S-+\\)\\(?:
\\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
nil t)
- (setq Date (format "%s %s 00:00:00 %s"
+ (setq Date (if (match-string 1)
+ (format "%s %s 00:00:00 %s"
(match-string 1)
(match-string 2)
(or (match-string 3)
- (substring (current-time-string) -4))))
+ (substring (current-time-string) -4)))
+ (current-time-string)))
(setq From (match-string 4)))
(widen)
(incf i)