/[emacs]/emacs/lisp/gnus/nnmail.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by miles, Tue Dec 7 21:56:39 2004 UTC revision 1.25 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 119  If nil, the first match found will be us Line 119  If nil, the first match found will be us
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 ".*")
# Line 128  This can also be a list of regexps." Line 128  This can also be a list of regexps."
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 ".*")
# Line 226  From header will be expired to the group Line 226  From header will be expired to the group
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")
# Line 355  discarded after running the split proces Line 355  discarded after running the split proces
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    
# Line 370  messages will be shown to indicate the c Line 370  messages will be shown to indicate the c
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)
# Line 409  This is copy of the `lazy' widget in Ema Line 409  This is copy of the `lazy' widget in Ema
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 (!)"
# Line 417  This is copy of the `lazy' widget in Ema Line 417  This is copy of the `lazy' widget in Ema
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"
# Line 562  parameter.  It should return nil, `warn' Line 562  parameter.  It should return nil, `warn'
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    
# Line 578  Normally, regexes given in `nnmail-split Line 578  Normally, regexes given in `nnmail-split
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    
# Line 586  by anything." Line 586  by anything."
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    
# Line 1580  See the documentation for the variable ` Line 1580  See the documentation for the variable `
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
# Line 1603  See the documentation for the variable ` Line 1603  See the documentation for the variable `
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)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26