119 |
(defcustom nnmail-split-fancy-with-parent-ignore-groups nil |
(defcustom nnmail-split-fancy-with-parent-ignore-groups nil |
120 |
"Regexp that matches group names to be ignored when applying `nnmail-split-fancy-with-parent'. |
"Regexp that matches group names to be ignored when applying `nnmail-split-fancy-with-parent'. |
121 |
This can also be a list of regexps." |
This can also be a list of regexps." |
122 |
:version "21.4" |
:version "22.1" |
123 |
:group 'nnmail-split |
:group 'nnmail-split |
124 |
:type '(choice (const :tag "none" nil) |
:type '(choice (const :tag "none" nil) |
125 |
(regexp :value ".*") |
(regexp :value ".*") |
128 |
(defcustom nnmail-cache-ignore-groups nil |
(defcustom nnmail-cache-ignore-groups nil |
129 |
"Regexp that matches group names to be ignored when inserting message ids into the cache (`nnmail-cache-insert'). |
"Regexp that matches group names to be ignored when inserting message ids into the cache (`nnmail-cache-insert'). |
130 |
This can also be a list of regexps." |
This can also be a list of regexps." |
131 |
:version "21.4" |
:version "22.1" |
132 |
:group 'nnmail-split |
:group 'nnmail-split |
133 |
:type '(choice (const :tag "none" nil) |
:type '(choice (const :tag "none" nil) |
134 |
(regexp :value ".*") |
(regexp :value ".*") |
226 |
articles containing the sting \"IMPORTANT\" in the Subject header will |
articles containing the sting \"IMPORTANT\" in the Subject header will |
227 |
be expired to the group \"nnfolder:IMPORTANT.YYYY.MMM\"; and |
be expired to the group \"nnfolder:IMPORTANT.YYYY.MMM\"; and |
228 |
everything else will be expired to \"nnfolder:Archive-YYYY\"." |
everything else will be expired to \"nnfolder:Archive-YYYY\"." |
229 |
:version "21.4" |
:version "22.1" |
230 |
:group 'nnmail-expire |
:group 'nnmail-expire |
231 |
:type '(repeat (list (choice :tag "Match against" |
:type '(repeat (list (choice :tag "Match against" |
232 |
(string :tag "Header") |
(string :tag "Header") |
355 |
|
|
356 |
(defcustom nnmail-spool-hook nil |
(defcustom nnmail-spool-hook nil |
357 |
"*A hook called when a new article is spooled." |
"*A hook called when a new article is spooled." |
358 |
:version "21.4" |
:version "22.1" |
359 |
:group 'nnmail |
:group 'nnmail |
360 |
:type 'hook) |
:type 'hook) |
361 |
|
|
370 |
(define-widget 'nnmail-lazy 'default |
(define-widget 'nnmail-lazy 'default |
371 |
"Base widget for recursive datastructures. |
"Base widget for recursive datastructures. |
372 |
|
|
373 |
This is copy of the `lazy' widget in Emacs 21.4 provided for compatibility." |
This is copy of the `lazy' widget in Emacs 22.1 provided for compatibility." |
374 |
:format "%{%t%}: %v" |
:format "%{%t%}: %v" |
375 |
:convert-widget 'widget-value-convert-widget |
:convert-widget 'widget-value-convert-widget |
376 |
:value-create (lambda (widget) |
:value-create (lambda (widget) |
377 |
(let ((value (widget-get widget :value)) |
(let ((value (widget-get widget :value)) |
378 |
(type (widget-get widget :type))) |
(type (widget-get widget :type))) |
379 |
(widget-put widget :children |
(widget-put widget :children |
380 |
(list (widget-create-child-value |
(list (widget-create-child-value |
381 |
widget (widget-convert type) value))))) |
widget (widget-convert type) value))))) |
382 |
:value-delete 'widget-children-value-delete |
:value-delete 'widget-children-value-delete |
383 |
:value-get (lambda (widget) |
:value-get (lambda (widget) |
409 |
(list :tag "Function with fixed arguments (:)" |
(list :tag "Function with fixed arguments (:)" |
410 |
:value (: nil) |
:value (: nil) |
411 |
(const :format "" :value :) |
(const :format "" :value :) |
412 |
function |
function |
413 |
(editable-list :inline t (sexp :tag "Arg")) |
(editable-list :inline t (sexp :tag "Arg")) |
414 |
) |
) |
415 |
(list :tag "Function with split arguments (!)" |
(list :tag "Function with split arguments (!)" |
417 |
(const :format "" !) |
(const :format "" !) |
418 |
function |
function |
419 |
(editable-list :inline t nnmail-split-fancy)) |
(editable-list :inline t nnmail-split-fancy)) |
420 |
(list :tag "Field match" |
(list :tag "Field match" |
421 |
(choice :tag "Field" |
(choice :tag "Field" |
422 |
regexp symbol) |
regexp symbol) |
423 |
(choice :tag "Match" |
(choice :tag "Match" |
424 |
regexp |
regexp |
425 |
(symbol :value mail)) |
(symbol :value mail)) |
426 |
(repeat :inline t |
(repeat :inline t |
427 |
:tag "Restrictions" |
:tag "Restrictions" |
562 |
|
|
563 |
(defcustom nnmail-mail-splitting-charset nil |
(defcustom nnmail-mail-splitting-charset nil |
564 |
"Default charset to be used when splitting incoming mail." |
"Default charset to be used when splitting incoming mail." |
565 |
:version "21.4" |
:version "22.1" |
566 |
:group 'nnmail |
:group 'nnmail |
567 |
:type 'symbol) |
:type 'symbol) |
568 |
|
|
569 |
(defcustom nnmail-mail-splitting-decodes nil |
(defcustom nnmail-mail-splitting-decodes nil |
570 |
"Whether the nnmail splitting functionality should MIME decode headers." |
"Whether the nnmail splitting functionality should MIME decode headers." |
571 |
:version "21.4" |
:version "22.1" |
572 |
:group 'nnmail |
:group 'nnmail |
573 |
:type 'boolean) |
:type 'boolean) |
574 |
|
|
578 |
by \"\\=\\<...\\>\". If this variable is true, they are not implicitly\ |
by \"\\=\\<...\\>\". If this variable is true, they are not implicitly\ |
579 |
surrounded |
surrounded |
580 |
by anything." |
by anything." |
581 |
:version "21.4" |
:version "22.1" |
582 |
:group 'nnmail |
:group 'nnmail |
583 |
:type 'boolean) |
:type 'boolean) |
584 |
|
|
586 |
"Whether to lowercase expanded entries (i.e. \\N) when splitting mails. |
"Whether to lowercase expanded entries (i.e. \\N) when splitting mails. |
587 |
This avoids the creation of multiple groups when users send to an address |
This avoids the creation of multiple groups when users send to an address |
588 |
using different case (i.e. mailing-list@domain vs Mailing-List@Domain)." |
using different case (i.e. mailing-list@domain vs Mailing-List@Domain)." |
589 |
:version "21.4" |
:version "22.1" |
590 |
:group 'nnmail |
:group 'nnmail |
591 |
:type 'boolean) |
:type 'boolean) |
592 |
|
|
1580 |
(when (stringp id) |
(when (stringp id) |
1581 |
;; this will handle cases like `B r' where the group is nil |
;; this will handle cases like `B r' where the group is nil |
1582 |
(let ((grp (or grp gnus-newsgroup-name "UNKNOWN"))) |
(let ((grp (or grp gnus-newsgroup-name "UNKNOWN"))) |
1583 |
(run-hook-with-args 'nnmail-spool-hook |
(run-hook-with-args 'nnmail-spool-hook |
1584 |
id grp subject sender)) |
id grp subject sender)) |
1585 |
(when nnmail-treat-duplicates |
(when nnmail-treat-duplicates |
1586 |
;; Store some information about the group this message is written |
;; Store some information about the group this message is written |
1603 |
(unless (and regexp (string-match regexp grp)) |
(unless (and regexp (string-match regexp grp)) |
1604 |
(insert id "\t" grp "\n"))) |
(insert id "\t" grp "\n"))) |
1605 |
(insert id "\n")))))) |
(insert id "\n")))))) |
1606 |
|
|
1607 |
(defun nnmail-cache-primary-mail-backend () |
(defun nnmail-cache-primary-mail-backend () |
1608 |
(let ((be-list (cons gnus-select-method gnus-secondary-select-methods)) |
(let ((be-list (cons gnus-select-method gnus-secondary-select-methods)) |
1609 |
(be nil) |
(be nil) |