projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert last commit.
[gnus]
/
lisp
/
nnweb.el
diff --git
a/lisp/nnweb.el
b/lisp/nnweb.el
index
e6289c5
..
f21d9d1
100644
(file)
--- a/
lisp/nnweb.el
+++ b/
lisp/nnweb.el
@@
-1,7
+1,6
@@
;;; nnweb.el --- retrieving articles via web search engines
;;; nnweb.el --- retrieving articles via web search engines
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2013 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-124,7
+123,7
@@
Valid types include `google', `dejanews', and `gmane'.")
(nnweb-write-active)
(nnweb-write-overview group)))
(nnweb-write-active)
(nnweb-write-overview group)))
-(deffoo nnweb-request-group (group &optional server dont-check)
+(deffoo nnweb-request-group (group &optional server dont-check
info
)
(nnweb-possibly-change-server group server)
(unless (or nnweb-ephemeral-p
dont-check
(nnweb-possibly-change-server group server)
(unless (or nnweb-ephemeral-p
dont-check
@@
-193,8
+192,7
@@
Valid types include `google', `dejanews', and `gmane'.")
(nnmail-generate-active (list (assoc server nnweb-group-alist)))
t))
(nnmail-generate-active (list (assoc server nnweb-group-alist)))
t))
-(deffoo nnweb-request-update-info (group info &optional server)
- (nnweb-possibly-change-server group server))
+(deffoo nnweb-request-update-info (group info &optional server))
(deffoo nnweb-asynchronous-p ()
nil)
(deffoo nnweb-asynchronous-p ()
nil)
@@
-208,7
+206,7
@@
Valid types include `google', `dejanews', and `gmane'.")
(deffoo nnweb-request-delete-group (group &optional force server)
(nnweb-possibly-change-server group server)
(deffoo nnweb-request-delete-group (group &optional force server)
(nnweb-possibly-change-server group server)
- (gnus-pull group nnweb-group-alist t)
+ (gnus-
alist-
pull group nnweb-group-alist t)
(nnweb-write-active)
(gnus-delete-file (nnweb-overview-file group))
t)
(nnweb-write-active)
(gnus-delete-file (nnweb-overview-file group))
t)
@@
-367,7
+365,7
@@
Valid types include `google', `dejanews', and `gmane'.")
(match-string 1)
(match-string 2)
(or (match-string 3)
(match-string 1)
(match-string 2)
(or (match-string 3)
- (
substring (current-time-string) -4
)))
+ (
format-time-string "%Y"
)))
(current-time-string)))
(setq From (match-string 4)))
(widen)
(current-time-string)))
(setq From (match-string 4)))
(widen)