[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: |
Wed, 16 Aug 2006 14:04:42 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 06/08/16 14:04:41
Index: nnweb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnweb.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- nnweb.el 24 Jul 2006 10:53:10 -0000 1.25
+++ nnweb.el 16 Aug 2006 14:04:41 -0000 1.26
@@ -366,14 +366,15 @@
(mm-url-decode-entities)
(search-backward " - ")
(when (looking-at
- " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?:
\\([0-9]\\{4\\}\\)\\)?[^\n]+by ?\n?\\([^<\n]+\\)\n")
- (setq From (match-string 4)
- Date (format "%s %s 00:00:00 %s"
+ "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?")
+ (setq Date (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))))
+ (goto-char (match-end 0)))
+ (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)")
+ (setq From (match-string 1)))
(widen)
(forward-line 1)
(incf i)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v,
Miles Bader <=