[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 d924953: Fix unbound mm-uu-entry in mm-uu
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] emacs-26 d924953: Fix unbound mm-uu-entry in mm-uu |
Date: |
Sat, 10 Feb 2018 17:59:41 -0500 (EST) |
branch: emacs-26
commit d924953e05f67874440fffac816a143e56af788f
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>
Fix unbound mm-uu-entry in mm-uu
* lisp/gnus/mm-uu.el (mm-uu-dissect): Rename entry to mm-uu-entry.
---
lisp/gnus/mm-uu.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 32be336..e15eba7 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -624,7 +624,7 @@ MIME-TYPE specifies a MIME type and parameters, which
defaults to the
value of `mm-uu-text-plain-type'."
(let ((case-fold-search t)
(mm-uu-text-plain-type (or mime-type mm-uu-text-plain-type))
- text-start start-point end-point file-name result entry func)
+ text-start start-point end-point file-name result mm-uu-entry func)
(save-excursion
(goto-char (point-min))
(cond
@@ -637,26 +637,26 @@ value of `mm-uu-text-plain-type'."
(setq text-start (point))
(while (re-search-forward mm-uu-beginning-regexp nil t)
(setq start-point (match-beginning 0)
- entry nil)
+ mm-uu-entry nil)
(let ((alist mm-uu-type-alist)
(beginning-regexp (match-string 0)))
- (while (not entry)
+ (while (not mm-uu-entry)
(if (string-match (mm-uu-beginning-regexp (car alist))
beginning-regexp)
- (setq entry (car alist))
+ (setq mm-uu-entry (car alist))
(pop alist))))
- (if (setq func (mm-uu-function-1 entry))
+ (if (setq func (mm-uu-function-1 mm-uu-entry))
(funcall func))
(forward-line);; in case of failure
- (when (and (not (mm-uu-configure-p (mm-uu-type entry) 'disabled))
- (let ((end-regexp (mm-uu-end-regexp entry)))
+ (when (and (not (mm-uu-configure-p (mm-uu-type mm-uu-entry) 'disabled))
+ (let ((end-regexp (mm-uu-end-regexp mm-uu-entry)))
(if (not end-regexp)
(or (setq end-point (point-max)) t)
(prog1
(re-search-forward end-regexp nil t)
(forward-line)
(setq end-point (point)))))
- (or (not (setq func (mm-uu-function-2 entry)))
+ (or (not (setq func (mm-uu-function-2 mm-uu-entry)))
(funcall func)))
(if (and (> start-point text-start)
(progn
@@ -675,7 +675,7 @@ value of `mm-uu-text-plain-type'."
mm-uu-text-plain-type)
result))
(push
- (funcall (mm-uu-function-extract entry))
+ (funcall (mm-uu-function-extract mm-uu-entry))
result)
(goto-char (setq text-start end-point))))
(when result
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 d924953: Fix unbound mm-uu-entry in mm-uu,
Andreas Schwab <=