(autoload 'yenc-extract-filename "yenc")
(defcustom mm-uu-decode-function 'uudecode-decode-region
- "*Function to uudecode.
+ "Function to uudecode.
Internal function is done in Lisp by default, therefore decoding may
appear to be horribly slow. You can make Gnus use an external
decoder, such as uudecode."
:group 'gnus-article-mime)
(defcustom mm-uu-binhex-decode-function 'binhex-decode-region
- "*Function to binhex decode.
+ "Function to binhex decode.
Internal function is done in elisp by default, therefore decoding may
appear to be horribly slow . You can make Gnus use the external Unix
decoder, such as hexbin."
:group 'gnus-article-mime)
(defcustom mm-uu-tex-groups-regexp "\\.tex\\>"
- "*Regexp matching TeX groups."
+ "Regexp matching TeX groups."
:version "23.1"
:type 'regexp
:group 'gnus-article-mime)
(defsubst mm-uu-function-2 (entry)
(nth 5 entry))
-;; In Emacs 22, we could use `min-colors' in the face definition. But Emacs
-;; 21 and XEmacs don't support it.
-(defcustom mm-uu-hide-markers
- (< 16 (or (and (fboundp 'defined-colors)
- (length (defined-colors)))
- (and (fboundp 'device-color-cells)
- (device-color-cells))
- 0))
+(defcustom mm-uu-hide-markers (< 16 (length (defined-colors)))
"If non-nil, hide verbatim markers.
The value should be nil on displays where the face
`mm-uu-extract' isn't distinguishable to the face `default'."
see `set-text-properties'. If PROPERTIES equals t, this means to
apply the face `mm-uu-extract'."
(let ((obuf (current-buffer))
- (multi (and (boundp 'enable-multibyte-characters)
- enable-multibyte-characters))
- (coding-system
- ;; Might not exist in non-MULE XEmacs
- (when (boundp 'buffer-file-coding-system)
- buffer-file-coding-system)))
+ (multi enable-multibyte-characters)
+ (coding-system buffer-file-coding-system))
(with-current-buffer (generate-new-buffer " *mm-uu*")
(if multi (mm-enable-multibyte) (mm-disable-multibyte))
(setq buffer-file-coding-system coding-system)
(interactive)
(if symbol (set-default symbol value))
(setq mm-uu-beginning-regexp nil)
- (mapcar (lambda (entry)
- (if (mm-uu-configure-p (mm-uu-type entry) 'disabled)
+ (mapcar (lambda (mm-uu-entry)
+ (if (mm-uu-configure-p (mm-uu-type mm-uu-entry) 'disabled)
nil
(setq mm-uu-beginning-regexp
(concat mm-uu-beginning-regexp
(if mm-uu-beginning-regexp "\\|")
- (mm-uu-beginning-regexp entry)))))
+ (mm-uu-beginning-regexp mm-uu-entry)))))
mm-uu-type-alist))
(mm-uu-configure)
(defvar file-name)
(defvar start-point)
(defvar end-point)
-(defvar entry)
+(defvar mm-uu-entry)
(defun mm-uu-uu-filename ()
(if (looking-at ".+")
(not (eq charset 'ascii)))
;; Assume that buffer's multibyteness is turned off.
;; See `mml2015-pgg-clear-decrypt'.
- (insert (mm-decode-coding-string (prog1
- (buffer-string)
- (erase-buffer)
- (mm-enable-multibyte))
- charset))
+ (insert (decode-coding-string (prog1
+ (buffer-string)
+ (erase-buffer)
+ (mm-enable-multibyte))
+ charset))
(mm-enable-multibyte))
(list (mm-make-handle buf mm-uu-text-plain-type)))
(list (mm-make-handle buf '("application/pgp-encrypted")))))))
(defun mm-uu-gpg-key-skip-to-last ()
(let ((point (point))
- (end-regexp (mm-uu-end-regexp entry))
- (beginning-regexp (mm-uu-beginning-regexp entry)))
+ (end-regexp (mm-uu-end-regexp mm-uu-entry))
+ (beginning-regexp (mm-uu-beginning-regexp mm-uu-entry)))
(when (and end-regexp
- (not (mm-uu-configure-p (mm-uu-type entry) 'disabled)))
+ (not (mm-uu-configure-p (mm-uu-type mm-uu-entry) 'disabled)))
(while (re-search-forward end-regexp nil t)
(skip-chars-forward " \t\n\r")
(if (looking-at beginning-regexp)