projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
gnus-agent.el
diff --git
a/lisp/gnus-agent.el
b/lisp/gnus-agent.el
index
65bc02b
..
dbbff13
100644
(file)
--- a/
lisp/gnus-agent.el
+++ b/
lisp/gnus-agent.el
@@
-654,7
+654,7
@@
the actual number of articles toggled is returned."
(let ((dir (concat
(gnus-agent-directory)
(gnus-agent-group-path group) "/"))
(let ((dir (concat
(gnus-agent-directory)
(gnus-agent-group-path group) "/"))
- (date (
gnus-
time-to-day (current-time)))
+ (date (time-to-day (current-time)))
(case-fold-search t)
pos crosses id elem)
(gnus-make-directory dir)
(case-fold-search t)
pos crosses id elem)
(gnus-make-directory dir)
@@
-775,7
+775,7
@@
the actual number of articles toggled is returned."
(gnus-agent-enter-history
"last-header-fetched-for-session"
(list (cons group (nth (- (length articles) 1) articles)))
(gnus-agent-enter-history
"last-header-fetched-for-session"
(list (cons group (nth (- (length articles) 1) articles)))
- (
gnus-
time-to-day (current-time)))
+ (time-to-day (current-time)))
articles))))))
(defsubst gnus-agent-copy-nov-line (article)
articles))))))
(defsubst gnus-agent-copy-nov-line (article)
@@
-1258,7
+1258,7
@@
The following commands are available:
"Expire all old articles."
(interactive)
(let ((methods gnus-agent-covered-methods)
"Expire all old articles."
(interactive)
(let ((methods gnus-agent-covered-methods)
- (day (- (
gnus-
time-to-day (current-time)) gnus-agent-expire-days))
+ (day (- (time-to-day (current-time)) gnus-agent-expire-days))
gnus-command-method sym group articles
history overview file histories elem art nov-file low info
unreads marked article)
gnus-command-method sym group articles
history overview file histories elem art nov-file low info
unreads marked article)