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) |
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. |
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) |