Mercurial > emacs

comparison lisp/mh-e/mh-junk.el @ 67313:2ae99b10dd40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mh-comp.el (mh-forward): Went over all uses of the word "RANGE" in the docstrings and made usage consistent. Generally speaking, "messages in range" and "range of messages" is redundant and just "range" can be used in most circumstances. Also ensured that mh-interactive-range was mentioned in all interactive functions that use a range which describes the range argument for both users and programmers. * mh-e.el (mh-delete-msg-no-motion, mh-refile-msg) (mh-refile-or-write-again, mh-rescan-folder, mh-undo) (mh-visit-folder, mh-scan-folder, mh-regenerate-headers) (mh-notate-user-sequences, mh-delete-msg-from-seq, mh-catchup): Ditto. * mh-funcs.el (mh-copy-msg, mh-pack-folder, mh-pack-folder-1): Ditto. * mh-junk.el (mh-junk-blacklist, mh-junk-whitelist): Ditto. * mh-print.el (mh-ps-print-range, mh-ps-print-msg) (mh-ps-print-msg-file, mh-print-msg): Ditto. * mh-seq.el (mh-put-msg-in-seq, mh-range-to-msg-list) (mh-narrow-to-range, mh-toggle-tick): Ditto.
author Bill Wohler <wohler@newt.com>
date Sun, 04 Dec 2005 22:34:49 +0000
parents 6521056180e7
children 3a8785724cca
comparison
equal deleted inserted replaced
67312:30f08a0ab43b 67313:2ae99b10dd40
39 ;; Interactive functions callable from the folder buffer 39 ;; Interactive functions callable from the folder buffer
40 ;;;###mh-autoload 40 ;;;###mh-autoload
41 (defun mh-junk-blacklist (range) 41 (defun mh-junk-blacklist (range)
42 "Blacklist RANGE as spam. 42 "Blacklist RANGE as spam.
43 43
44 This command trains the spam program in use (see the `mh-junk-program' option) 44 This command trains the spam program in use (see the option `mh-junk-program')
45 with the content of the range (see `mh-interactive-range') and then handles 45 with the content of RANGE and then handles the message(s) as specified by the
46 the message(s) as specified by the `mh-junk-disposition' option. 46 option `mh-junk-disposition'.
47
48 Check the documentation of `mh-interactive-range' to see how RANGE is read in
49 interactive use.
47 50
48 For more information about using your particular spam fighting program, see: 51 For more information about using your particular spam fighting program, see:
49 52
50 - `mh-spamassassin-blacklist' 53 - `mh-spamassassin-blacklist'
51 - `mh-bogofilter-blacklist' 54 - `mh-bogofilter-blacklist'
75 78
76 ;;;###mh-autoload 79 ;;;###mh-autoload
77 (defun mh-junk-whitelist (range) 80 (defun mh-junk-whitelist (range)
78 "Whitelist RANGE as ham. 81 "Whitelist RANGE as ham.
79 82
80 This command reclassifies a range of messages (see `mh-interactive-range') as 83 This command reclassifies the RANGE as ham if it were incorrectly classified
81 ham if it were incorrectly classified as spam. It then refiles the message 84 as spam (see the option `mh-junk-program'). It then refiles the message into
82 into the `+inbox' folder. 85 the \"+inbox\" folder.
83 86
84 The `mh-junk-program' option specifies the spam program in use." 87 Check the documentation of `mh-interactive-range' to see how RANGE is read in
88 interactive use."
85 (interactive (list (mh-interactive-range "Whitelist"))) 89 (interactive (list (mh-interactive-range "Whitelist")))
86 (let ((whitelist-func (nth 2 (assoc mh-junk-choice mh-junk-function-alist)))) 90 (let ((whitelist-func (nth 2 (assoc mh-junk-choice mh-junk-function-alist))))
87 (unless whitelist-func 91 (unless whitelist-func
88 (error "Customize `mh-junk-program' appropriately")) 92 (error "Customize `mh-junk-program' appropriately"))
89 (mh-iterate-on-range msg range 93 (mh-iterate-on-range msg range