/[emacs]/emacs/lisp/gnus/mm-uu.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-uu.el

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

revision 1.17 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.18 by miles, Wed Sep 28 05:26:01 2005 UTC
# Line 77  decoder, such as hexbin." Line 77  decoder, such as hexbin."
77    "The default disposition of uu parts.    "The default disposition of uu parts.
78  This can be either \"inline\" or \"attachment\".")  This can be either \"inline\" or \"attachment\".")
79    
80  (defvar mm-uu-emacs-sources-regexp "gnu\\.emacs\\.sources"  (defcustom mm-uu-emacs-sources-regexp "\\.emacs\\.sources"
81    "The regexp of Emacs sources groups.")    "The regexp of Emacs sources groups."
82      :version "22.1"
83      :type 'regexp
84      :group 'gnus-article-mime)
85    
86  (defcustom mm-uu-diff-groups-regexp "gnus\\.commits"  (defcustom mm-uu-diff-groups-regexp
87    "*Regexp matching diff groups."    "\\(gmane\\|gnu\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|devel\\)"
88      "Regexp matching diff groups."
89    :version "22.1"    :version "22.1"
90    :type 'regexp    :type 'regexp
91    :group 'gnus-article-mime)    :group 'gnus-article-mime)
# Line 153  This can be either \"inline\" or \"attac Line 157  This can be either \"inline\" or \"attac
157       nil       nil
158       mm-uu-diff-extract       mm-uu-diff-extract
159       nil       nil
160       mm-uu-diff-test)))       mm-uu-diff-test))
161      "A list of specifications for non-MIME attachments.
162    Each element consist of the following entries: label,
163    start-regexp, end-regexp, extract-function, test-function.
164    
165    After modifying this list you must run \\[mm-uu-configure].")
166    
167  (defcustom mm-uu-configure-list '((shar . disabled))  (defcustom mm-uu-configure-list '((shar . disabled))
168    "A list of mm-uu configuration.    "A list of mm-uu configuration.
# Line 202  Return that buffer." Line 211  Return that buffer."
211    (member (cons key val) mm-uu-configure-list))    (member (cons key val) mm-uu-configure-list))
212    
213  (defun mm-uu-configure (&optional symbol value)  (defun mm-uu-configure (&optional symbol value)
214      "Configure detection of non-MIME attachments."
215      (interactive)
216    (if symbol (set-default symbol value))    (if symbol (set-default symbol value))
217    (setq mm-uu-beginning-regexp nil)    (setq mm-uu-beginning-regexp nil)
218    (mapcar (lambda (entry)    (mapcar (lambda (entry)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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