[Emacs-diffs] Changes to emacs/lisp/gnus/mm-uu.el

[Miles Bader]

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)