projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2001-01-16 Jesper Harder <harder@ifa.au.dk>
[gnus]
/
lisp
/
gnus-kill.el
diff --git
a/lisp/gnus-kill.el
b/lisp/gnus-kill.el
index
9773710
..
dfed289
100644
(file)
--- a/
lisp/gnus-kill.el
+++ b/
lisp/gnus-kill.el
@@
-1,8
+1,9
@@
;;; gnus-kill.el --- kill commands for Gnus
;;; gnus-kill.el --- kill commands for Gnus
-;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000
+;; Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;; Lars Magne Ingebrigtsen <larsi@
ifi.uio.no
>
+;; Lars Magne Ingebrigtsen <larsi@
gnus.org
>
;; Keywords: news
;; This file is part of GNU Emacs.
;; Keywords: news
;; This file is part of GNU Emacs.
@@
-49,7
+50,8
@@
:type 'boolean)
(defcustom gnus-winconf-kill-file nil
:type 'boolean)
(defcustom gnus-winconf-kill-file nil
- "What does this do, Lars?"
+ "What does this do, Lars?
+I don't know, Per."
:group 'gnus-score-kill
:type 'sexp)
:group 'gnus-score-kill
:type 'sexp)
@@
-406,7
+408,6
@@
Returns the number of articles marked as read."
()
(gnus-message 6 "Processing kill file %s..." (car kill-files))
(find-file (car kill-files))
()
(gnus-message 6 "Processing kill file %s..." (car kill-files))
(find-file (car kill-files))
- (gnus-add-current-to-buffer-list)
(goto-char (point-min))
(if (consp (ignore-errors (read (current-buffer))))
(goto-char (point-min))
(if (consp (ignore-errors (read (current-buffer))))
@@
-430,7
+431,7
@@
Returns the number of articles marked as read."
(defun gnus-score-insert-help (string alist idx)
(save-excursion
(pop-to-buffer "*Score Help*")
(defun gnus-score-insert-help (string alist idx)
(save-excursion
(pop-to-buffer "*Score Help*")
- (buffer-disable-undo
(current-buffer)
)
+ (buffer-disable-undo)
(erase-buffer)
(insert string ":\n\n")
(while alist
(erase-buffer)
(insert string ":\n\n")
(while alist
@@
-445,7
+446,7
@@
Returns the number of articles marked as read."
(setq beg (point))
(setq form (ignore-errors (read (current-buffer)))))
(unless (listp form)
(setq beg (point))
(setq form (ignore-errors (read (current-buffer)))))
(unless (listp form)
- (error "I
llegal
kill entry (possibly rn kill file?): %s" form))
+ (error "I
nvalid
kill entry (possibly rn kill file?): %s" form))
(if (or (eq (car form) 'gnus-kill)
(eq (car form) 'gnus-raise)
(eq (car form) 'gnus-lower))
(if (or (eq (car form) 'gnus-kill)
(eq (car form) 'gnus-raise)
(eq (car form) 'gnus-lower))
@@
-469,9
+470,9
@@
Returns the number of articles marked as read."
(?h . "")
(?f . "from")
(?: . "subject")))
(?h . "")
(?f . "from")
(?: . "subject")))
- (com-to-com
- '((?m . " ")
- (?j . "X")))
+
;;
(com-to-com
+
;;
'((?m . " ")
+
;;
(?j . "X")))
pattern modifier commands)
(while (not (eobp))
(if (not (looking-at "[ \t]*/\\([^/]*\\)/\\([ahfcH]\\)?:\\([a-z=:]*\\)"))
pattern modifier commands)
(while (not (eobp))
(if (not (looking-at "[ \t]*/\\([^/]*\\)/\\([ahfcH]\\)?:\\([a-z=:]*\\)"))
@@
-522,10
+523,10
@@
COMMAND must be a lisp expression or a string representing a key sequence."
(if (listp kill-list)
;; It is a list.
(if (not (consp (cdr kill-list)))
(if (listp kill-list)
;; It is a list.
(if (not (consp (cdr kill-list)))
- ;; It's o
n
the form (regexp . date).
+ ;; It's o
f
the form (regexp . date).
(if (zerop (gnus-execute field (car kill-list)
command nil (not all)))
(if (zerop (gnus-execute field (car kill-list)
command nil (not all)))
- (when (> (
gnus-
days-between date (cdr kill-list))
+ (when (> (days-between date (cdr kill-list))
gnus-kill-expiry-days)
(setq regexp nil))
(setcdr kill-list date))
gnus-kill-expiry-days)
(setq regexp nil))
(setcdr kill-list date))
@@
-536,7
+537,7
@@
COMMAND must be a lisp expression or a string representing a key sequence."
(setq kdate (cdr kill))
(if (zerop (gnus-execute
field (car kill) command nil (not all)))
(setq kdate (cdr kill))
(if (zerop (gnus-execute
field (car kill) command nil (not all)))
- (when (> (
gnus-
days-between date kdate)
+ (when (> (days-between date kdate)
gnus-kill-expiry-days)
;; Time limit has been exceeded, so we
;; remove the match.
gnus-kill-expiry-days)
;; Time limit has been exceeded, so we
;; remove the match.
@@
-566,8
+567,8
@@
COMMAND must be a lisp expression or a string representing a key sequence."
(not (consp (cdadr (nth 2 object))))))
(concat "\n" (gnus-prin1-to-string object))
(save-excursion
(not (consp (cdadr (nth 2 object))))))
(concat "\n" (gnus-prin1-to-string object))
(save-excursion
- (set-buffer (get-buffer-create "*Gnus PP*"))
- (buffer-disable-undo
(current-buffer)
)
+ (set-buffer (g
nus-g
et-buffer-create "*Gnus PP*"))
+ (buffer-disable-undo)
(erase-buffer)
(insert (format "\n(%S %S\n '(" (nth 0 object) (nth 1 object)))
(let ((klist (cadr (nth 2 object)))
(erase-buffer)
(insert (format "\n(%S %S\n '(" (nth 0 object) (nth 1 object)))
(let ((klist (cadr (nth 2 object)))
@@
-684,6
+685,7
@@
Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score"
(mapconcat 'identity command-line-args-left " "))))
(gnus-expert-user t)
(nnmail-spool-file nil)
(mapconcat 'identity command-line-args-left " "))))
(gnus-expert-user t)
(nnmail-spool-file nil)
+ (mail-sources nil)
(gnus-use-dribble-file nil)
(gnus-batch-mode t)
info group newsrc entry
(gnus-use-dribble-file nil)
(gnus-batch-mode t)
info group newsrc entry
@@
-703,7
+705,8
@@
Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score"
(and (car entry)
(or (eq (car entry) t)
(not (zerop (car entry))))))
(and (car entry)
(or (eq (car entry) t)
(not (zerop (car entry))))))
- (gnus-summary-read-group group nil t nil t)
+ (ignore-errors
+ (gnus-summary-read-group group nil t nil t))
(when (eq (current-buffer) (get-buffer gnus-summary-buffer))
(gnus-summary-exit))))
;; Exit Emacs.
(when (eq (current-buffer) (get-buffer gnus-summary-buffer))
(gnus-summary-exit))))
;; Exit Emacs.