[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-uu.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-uu.el |
Date: |
Wed, 28 Sep 2005 01:26:09 -0400 |
Index: emacs/lisp/gnus/mm-uu.el
diff -c emacs/lisp/gnus/mm-uu.el:1.17 emacs/lisp/gnus/mm-uu.el:1.18
*** emacs/lisp/gnus/mm-uu.el:1.17 Sat Aug 6 19:51:42 2005
--- emacs/lisp/gnus/mm-uu.el Wed Sep 28 05:26:01 2005
***************
*** 77,87 ****
"The default disposition of uu parts.
This can be either \"inline\" or \"attachment\".")
! (defvar mm-uu-emacs-sources-regexp "gnu\\.emacs\\.sources"
! "The regexp of Emacs sources groups.")
! (defcustom mm-uu-diff-groups-regexp "gnus\\.commits"
! "*Regexp matching diff groups."
:version "22.1"
:type 'regexp
:group 'gnus-article-mime)
--- 77,91 ----
"The default disposition of uu parts.
This can be either \"inline\" or \"attachment\".")
! (defcustom mm-uu-emacs-sources-regexp "\\.emacs\\.sources"
! "The regexp of Emacs sources groups."
! :version "22.1"
! :type 'regexp
! :group 'gnus-article-mime)
! (defcustom mm-uu-diff-groups-regexp
! "\\(gmane\\|gnu\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|devel\\)"
! "Regexp matching diff groups."
:version "22.1"
:type 'regexp
:group 'gnus-article-mime)
***************
*** 153,159 ****
nil
mm-uu-diff-extract
nil
! mm-uu-diff-test)))
(defcustom mm-uu-configure-list '((shar . disabled))
"A list of mm-uu configuration.
--- 157,168 ----
nil
mm-uu-diff-extract
nil
! mm-uu-diff-test))
! "A list of specifications for non-MIME attachments.
! Each element consist of the following entries: label,
! start-regexp, end-regexp, extract-function, test-function.
!
! After modifying this list you must run \\[mm-uu-configure].")
(defcustom mm-uu-configure-list '((shar . disabled))
"A list of mm-uu configuration.
***************
*** 202,207 ****
--- 211,218 ----
(member (cons key val) mm-uu-configure-list))
(defun mm-uu-configure (&optional symbol value)
+ "Configure detection of non-MIME attachments."
+ (interactive)
(if symbol (set-default symbol value))
(setq mm-uu-beginning-regexp nil)
(mapcar (lambda (entry)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-uu.el,
Miles Bader <=