mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-28 07:45:00 +00:00
* lisp/gnus/gnus-art.el: Fix up compiler warnings.
(article-display-face, article-display-x-face): Remove unused `face'. (gnus-article-browse-html-save-cid-content): Remove unused var `type'. (article-date-ut): Remove unused var `first'. (gnus-article-prepare): Remove unused var `gnus-article'. (gnus-mime-save-part-and-strip): Remove unused var `param'. (gnus-mime-inline-part): Remove unused vars `charset', `contents', and `coding-system' along with corresponding dead code. (gnus-mime-view-part-externally): Remove unused var `mm-user-display-methods'. (gnus-insert-mime-button): Let-bind gnus-tmp-id explicitly. (gnus-display-mime): Remove unused var `handle'. (gnus-mime-display-alternative): Remove unused var `props'. (gnus-article-read-summary-keys): Remove unused var `up-to-top'. (gnus-article-edit-done): Remove unused var `p'. (gnus-url-mailto): Remove unused var `to'. (gnus-treat-article): Let-bind gnus-treat-condition, part-number, total-parts, and gnus-treat-type explicitly. Remove unused var `elem'. * lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Mark obsolete and add warning.
This commit is contained in:
Stefan Monnier
parent
655a6f35df
commit
8f03888e7f
@ -1,3 +1,27 @@
|
||||
2014-12-18 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* mm-util.el (mm-with-unibyte-current-buffer): Mark obsolete and
|
||||
add warning.
|
||||
|
||||
* gnus-art.el: Fix up compiler warnings.
|
||||
(article-display-face, article-display-x-face): Remove unused `face'.
|
||||
(gnus-article-browse-html-save-cid-content): Remove unused var `type'.
|
||||
(article-date-ut): Remove unused var `first'.
|
||||
(gnus-article-prepare): Remove unused var `gnus-article'.
|
||||
(gnus-mime-save-part-and-strip): Remove unused var `param'.
|
||||
(gnus-mime-inline-part): Remove unused vars `charset', `contents', and
|
||||
`coding-system' along with corresponding dead code.
|
||||
(gnus-mime-view-part-externally): Remove unused var
|
||||
`mm-user-display-methods'.
|
||||
(gnus-insert-mime-button): Let-bind gnus-tmp-id explicitly.
|
||||
(gnus-display-mime): Remove unused var `handle'.
|
||||
(gnus-mime-display-alternative): Remove unused var `props'.
|
||||
(gnus-article-read-summary-keys): Remove unused var `up-to-top'.
|
||||
(gnus-article-edit-done): Remove unused var `p'.
|
||||
(gnus-url-mailto): Remove unused var `to'.
|
||||
(gnus-treat-article): Let-bind gnus-treat-condition, part-number,
|
||||
total-parts, and gnus-treat-type explicitly. Remove unused var `elem'.
|
||||
|
||||
2014-12-18 Eric Abrahamsen <eric@ericabrahamsen.net>
|
||||
|
||||
* registry.el (registry-db): Consolidate the :max-hard and :max-soft
|
||||
|
||||
@ -1626,6 +1626,8 @@ It is a string, such as \"PGP\". If nil, ask user."
|
||||
:type 'string
|
||||
:group 'mime-security)
|
||||
|
||||
(defvar idna-program)
|
||||
|
||||
(defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
|
||||
(mm-coding-system-p 'utf-8)
|
||||
idna-program
|
||||
@ -1841,7 +1843,7 @@ Initialized from `text-mode-syntax-table.")
|
||||
(incf i)))
|
||||
i))
|
||||
|
||||
(defun article-hide-headers (&optional arg delete)
|
||||
(defun article-hide-headers (&optional _arg _delete)
|
||||
"Hide unwanted headers and possibly sort them as well."
|
||||
(interactive)
|
||||
;; This function might be inhibited.
|
||||
@ -2411,7 +2413,7 @@ long lines if and only if arg is positive."
|
||||
(if (and wash-face-p (memq 'face gnus-article-wash-types))
|
||||
(gnus-delete-images 'face)
|
||||
(let ((from (message-fetch-field "from"))
|
||||
face faces)
|
||||
faces)
|
||||
(save-current-buffer
|
||||
(when (and wash-face-p
|
||||
(gnus-buffer-live-p gnus-original-article-buffer)
|
||||
@ -2461,7 +2463,7 @@ long lines if and only if arg is positive."
|
||||
(gnus-delete-images 'xface)
|
||||
;; Display X-Faces.
|
||||
(let ((from (message-fetch-field "from"))
|
||||
x-faces face)
|
||||
x-faces)
|
||||
(save-current-buffer
|
||||
(when (and wash-face-p
|
||||
(gnus-buffer-live-p gnus-original-article-buffer)
|
||||
@ -2794,7 +2796,7 @@ summary buffer."
|
||||
"Find CID content in HANDLES and save it in a file in DIRECTORY.
|
||||
Return file name."
|
||||
(save-match-data
|
||||
(let (file type)
|
||||
(let (file)
|
||||
(catch 'found
|
||||
(dolist (handle handles)
|
||||
(cond
|
||||
@ -3396,7 +3398,7 @@ means show, 0 means toggle."
|
||||
'hidden
|
||||
nil)))
|
||||
|
||||
(defun gnus-article-show-hidden-text (type &optional dummy)
|
||||
(defun gnus-article-show-hidden-text (type &optional _dummy)
|
||||
"Show all hidden text of type TYPE.
|
||||
Originally it is hide instead of DUMMY."
|
||||
(let ((inhibit-read-only t)
|
||||
@ -3435,7 +3437,7 @@ lines forward."
|
||||
gnus-article-date-headers)
|
||||
t))
|
||||
|
||||
(defun article-date-ut (&optional type highlight date-position)
|
||||
(defun article-date-ut (&optional type _highlight date-position)
|
||||
"Convert DATE date to TYPE in the current article.
|
||||
The default type is `ut'. See `gnus-article-date-headers' for
|
||||
possible values."
|
||||
@ -3443,7 +3445,6 @@ possible values."
|
||||
(let* ((case-fold-search t)
|
||||
(inhibit-read-only t)
|
||||
(inhibit-point-motion-hooks t)
|
||||
(first t)
|
||||
(visible-date (mail-fetch-field "Date"))
|
||||
pos date bface eface)
|
||||
(save-excursion
|
||||
@ -3982,7 +3983,7 @@ This format is defined by the `gnus-article-time-format' variable."
|
||||
(set dir-var (file-name-directory result)))
|
||||
result))
|
||||
|
||||
(defun gnus-article-archive-name (group)
|
||||
(defun gnus-article-archive-name (_group)
|
||||
"Return the first instance of an \"Archive-name\" in the current buffer."
|
||||
(let ((case-fold-search t))
|
||||
(when (re-search-forward "archive-name: *\\([^ \n\t]+\\)[ \t]*$" nil t)
|
||||
@ -4214,7 +4215,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
|
||||
default
|
||||
(or last-file default))))
|
||||
|
||||
(defun gnus-plain-save-name (newsgroup headers &optional last-file)
|
||||
(defun gnus-plain-save-name (newsgroup _headers &optional last-file)
|
||||
"Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
|
||||
If variable `gnus-use-long-file-name' is non-nil, it is
|
||||
~/News/news.group. Otherwise, it is like ~/News/news/group/news."
|
||||
@ -4227,7 +4228,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
|
||||
default-directory))
|
||||
gnus-article-save-directory)))
|
||||
|
||||
(defun gnus-sender-save-name (newsgroup headers &optional last-file)
|
||||
(defun gnus-sender-save-name (_newsgroup headers &optional _last-file)
|
||||
"Generate file name from sender."
|
||||
(let ((from (mail-header-from headers)))
|
||||
(expand-file-name
|
||||
@ -4424,6 +4425,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
|
||||
(substitute-key-definition
|
||||
'undefined 'gnus-article-read-summary-keys gnus-article-mode-map)
|
||||
|
||||
(defvar gnus-article-send-map)
|
||||
|
||||
(gnus-define-keys (gnus-article-send-map "S" gnus-article-mode-map)
|
||||
"W" gnus-article-wide-reply-with-original)
|
||||
(if (featurep 'xemacs)
|
||||
@ -4607,18 +4610,19 @@ commands:
|
||||
(forward-line line)
|
||||
(point)))))))
|
||||
|
||||
(defun gnus-article-prepare (article &optional all-headers header)
|
||||
(defvar gnus-tmp-internal-hook)
|
||||
|
||||
(defun gnus-article-prepare (article &optional all-headers _header)
|
||||
"Prepare ARTICLE in article mode buffer.
|
||||
ARTICLE should either be an article number or a Message-ID.
|
||||
If ARTICLE is an id, HEADER should be the article headers.
|
||||
If ALL-HEADERS is non-nil, no headers are hidden."
|
||||
(save-excursion
|
||||
(save-excursion ;FIXME: Shouldn't that be save-current-buffer?
|
||||
;; Make sure we start in a summary buffer.
|
||||
(unless (derived-mode-p 'gnus-summary-mode)
|
||||
(set-buffer gnus-summary-buffer))
|
||||
(setq gnus-summary-buffer (current-buffer))
|
||||
(let* ((gnus-article (if header (mail-header-number header) article))
|
||||
(summary-buffer (current-buffer))
|
||||
(let* ((summary-buffer (current-buffer))
|
||||
(gnus-tmp-internal-hook gnus-article-internal-prepare-hook)
|
||||
(group gnus-newsgroup-name)
|
||||
result)
|
||||
@ -4717,6 +4721,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
|
||||
(gnus-run-hooks 'gnus-article-prepare-hook)
|
||||
t))))))
|
||||
|
||||
(defvar gnus-mime-display-attachment-buttons-in-header)
|
||||
|
||||
;;;###autoload
|
||||
(defun gnus-article-prepare-display ()
|
||||
"Make the current buffer look like a nice article."
|
||||
@ -4840,6 +4846,16 @@ Valid specifiers include:
|
||||
General format specifiers can also be used. See Info node
|
||||
`(gnus)Formatting Variables'.")
|
||||
|
||||
(defvar gnus-tmp-type)
|
||||
(defvar gnus-tmp-type-long)
|
||||
(defvar gnus-tmp-name)
|
||||
(defvar gnus-tmp-description)
|
||||
(defvar gnus-tmp-id)
|
||||
(defvar gnus-tmp-length)
|
||||
(defvar gnus-tmp-dots)
|
||||
(defvar gnus-tmp-info)
|
||||
(defvar gnus-tmp-pressed-details)
|
||||
|
||||
(defvar gnus-mime-button-line-format-alist
|
||||
'((?t gnus-tmp-type ?s)
|
||||
(?T gnus-tmp-type-long ?s)
|
||||
@ -5066,7 +5082,6 @@ If FILE is given, use it for the external part."
|
||||
The current article has a complicated MIME structure, giving up..."))
|
||||
(let* ((data (get-text-property (point) 'gnus-data))
|
||||
(id (get-text-property (point) 'gnus-part))
|
||||
param
|
||||
(handles gnus-article-mime-handles))
|
||||
(unless file
|
||||
(setq file
|
||||
@ -5324,7 +5339,7 @@ Compressed files like .gz and .bz2 are decompressed."
|
||||
(text-property-any (point-min) (point) 'gnus-data handle)))
|
||||
(setq handle (get-text-property b 'gnus-data))
|
||||
b))
|
||||
start contents charset coding-system)
|
||||
start)
|
||||
(when handle
|
||||
(when (= b (prog1
|
||||
btn
|
||||
@ -5335,27 +5350,11 @@ Compressed files like .gz and .bz2 are decompressed."
|
||||
(setq b btn))
|
||||
(if (and (not arg) (mm-handle-undisplayer handle))
|
||||
(mm-remove-part handle)
|
||||
(mm-with-unibyte-buffer
|
||||
(mm-insert-part handle)
|
||||
(setq contents
|
||||
(or (mm-decompress-buffer (mm-handle-filename handle) nil t)
|
||||
(buffer-string))))
|
||||
(cond
|
||||
((not arg)
|
||||
(unless (setq charset (mail-content-type-get
|
||||
(mm-handle-type handle) 'charset))
|
||||
(unless (setq coding-system
|
||||
(mm-with-unibyte-buffer
|
||||
(insert contents)
|
||||
(mm-find-buffer-file-coding-system)))
|
||||
(setq charset gnus-newsgroup-charset))))
|
||||
((not arg) nil)
|
||||
((numberp arg)
|
||||
(if (mm-handle-undisplayer handle)
|
||||
(mm-remove-part handle))
|
||||
(setq charset
|
||||
(or (cdr (assq arg
|
||||
gnus-summary-show-article-charset-alist))
|
||||
(mm-read-coding-system "Charset: "))))
|
||||
(mm-remove-part handle)))
|
||||
((mm-handle-undisplayer handle)
|
||||
(mm-remove-part handle)))
|
||||
(goto-char start)
|
||||
@ -5465,7 +5464,6 @@ specified charset."
|
||||
(interactive)
|
||||
(gnus-article-check-buffer)
|
||||
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
|
||||
(mm-user-display-methods nil)
|
||||
(mm-inlined-types nil)
|
||||
(mail-parse-charset gnus-newsgroup-charset)
|
||||
(mail-parse-ignored-charsets
|
||||
@ -5833,11 +5831,12 @@ all parts."
|
||||
(when gnus-break-pages
|
||||
(gnus-narrow-to-page))))
|
||||
|
||||
(defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
|
||||
(defun gnus-insert-mime-button (handle id &optional displayed)
|
||||
(let ((gnus-tmp-name
|
||||
(or (mm-handle-filename handle)
|
||||
(mail-content-type-get (mm-handle-type handle) 'url)
|
||||
""))
|
||||
(gnus-tmp-id id)
|
||||
(gnus-tmp-type (mm-handle-media-type handle))
|
||||
(gnus-tmp-description (or (mm-handle-description handle) ""))
|
||||
(gnus-tmp-dots
|
||||
@ -5888,7 +5887,7 @@ all parts."
|
||||
"hide" "show")
|
||||
(aref gnus-down-mouse-3 0))))))
|
||||
|
||||
(defun gnus-widget-press-button (elems el)
|
||||
(defun gnus-widget-press-button (elems _el)
|
||||
(goto-char (widget-get elems :from))
|
||||
(gnus-article-press-button))
|
||||
|
||||
@ -5906,8 +5905,7 @@ all parts."
|
||||
;; may change the point. So we set the window point.
|
||||
(set-window-point window point)))
|
||||
(let ((handles ihandles)
|
||||
(inhibit-read-only t)
|
||||
handle)
|
||||
(inhibit-read-only t))
|
||||
(cond (handles)
|
||||
((setq handles (mm-dissect-buffer nil gnus-article-loose-mime))
|
||||
(when gnus-article-emulate-mime
|
||||
@ -6139,7 +6137,7 @@ If nil, don't show those extra buttons."
|
||||
(let* ((preferred (or preferred (mm-preferred-alternative handles)))
|
||||
(ihandles handles)
|
||||
(point (point))
|
||||
handle (inhibit-read-only t) from props begend not-pref)
|
||||
handle (inhibit-read-only t) from begend not-pref)
|
||||
(save-window-excursion
|
||||
(save-restriction
|
||||
(when ibegend
|
||||
@ -6626,6 +6624,8 @@ specifies."
|
||||
(if header-line-format 1 0)
|
||||
2)))))))
|
||||
|
||||
(defvar scroll-in-place)
|
||||
|
||||
(defun gnus-article-next-page-1 (lines)
|
||||
(condition-case ()
|
||||
(let ((scroll-in-place nil)
|
||||
@ -6713,7 +6713,9 @@ not have a face in `gnus-article-boring-faces'."
|
||||
(unless (derived-mode-p 'gnus-article-mode)
|
||||
(error "Command invoked outside of a Gnus article buffer")))
|
||||
|
||||
(defun gnus-article-read-summary-keys (&optional arg key not-restore-window)
|
||||
(defvar gnus-pick-mode)
|
||||
|
||||
(defun gnus-article-read-summary-keys (&optional _arg key not-restore-window)
|
||||
"Read a summary buffer key sequence and execute it from the article buffer."
|
||||
(interactive "P")
|
||||
(gnus-article-check-buffer)
|
||||
@ -6726,8 +6728,6 @@ not have a face in `gnus-article-boring-faces'."
|
||||
"An" "Ap" [?A (meta return)] [?A delete]))
|
||||
(nosave-in-article
|
||||
'("AS" "\C-d"))
|
||||
(up-to-top
|
||||
'("n" "Gn" "p" "Gp"))
|
||||
keys new-sum-point)
|
||||
(with-current-buffer gnus-article-current-summary
|
||||
(let (gnus-pick-mode)
|
||||
@ -6886,6 +6886,7 @@ KEY is a string or a vector."
|
||||
(defvar gnus-agent-summary-mode)
|
||||
(defvar gnus-draft-mode)
|
||||
(defvar help-xref-stack-item)
|
||||
(defvar help-xref-following)
|
||||
|
||||
(defun gnus-article-describe-bindings (&optional prefix)
|
||||
"Show a list of all defined keys, and their definitions.
|
||||
@ -7330,7 +7331,6 @@ groups."
|
||||
(let ((func gnus-article-edit-done-function)
|
||||
(buf (current-buffer))
|
||||
(start (window-start))
|
||||
(p (point))
|
||||
(winconf gnus-prev-winconf))
|
||||
(widen) ;; Widen it in case that users narrowed the buffer.
|
||||
(funcall func arg)
|
||||
@ -7959,7 +7959,7 @@ do the highlighting. See the documentation for those functions."
|
||||
(gnus-article-add-buttons)
|
||||
(gnus-article-add-buttons-to-head))
|
||||
|
||||
(defun gnus-article-highlight-some (&optional force)
|
||||
(defun gnus-article-highlight-some (&optional _force)
|
||||
"Highlight current article.
|
||||
This function calls `gnus-article-highlight-headers',
|
||||
`gnus-article-highlight-signature', and `gnus-article-add-buttons' to
|
||||
@ -8262,9 +8262,11 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(error "Unknown news URL syntax"))))
|
||||
(list scheme server port group message-id articles)))
|
||||
|
||||
(defvar nntp-port-number)
|
||||
|
||||
(defun gnus-button-handle-news (url)
|
||||
"Fetch a news URL."
|
||||
(destructuring-bind (scheme server port group message-id articles)
|
||||
(destructuring-bind (_scheme server port group message-id _articles)
|
||||
(gnus-parse-news-url url)
|
||||
(cond
|
||||
(message-id
|
||||
@ -8386,7 +8388,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(with-current-buffer gnus-summary-buffer
|
||||
(gnus-summary-refer-article message-id)))
|
||||
|
||||
(defun gnus-button-fetch-group (address &rest ignore)
|
||||
(defun gnus-button-fetch-group (address &rest _ignore)
|
||||
"Fetch GROUP specified by ADDRESS."
|
||||
(when (string-match "\\`\\(nntp\\|news\\):\\(//\\)?\\(.*\\)\\'"
|
||||
address)
|
||||
@ -8434,15 +8436,15 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(setq url (replace-regexp-in-string "\n" " " url))
|
||||
(when (string-match "mailto:/*\\(.*\\)" url)
|
||||
(setq url (substring url (match-beginning 1) nil)))
|
||||
(let (to args subject func)
|
||||
(setq args (gnus-url-parse-query-string
|
||||
(let* ((args (gnus-url-parse-query-string
|
||||
(if (string-match "^\\?" url)
|
||||
(substring url 1)
|
||||
(if (string-match "^\\([^?]+\\)\\?\\(.*\\)" url)
|
||||
(concat "to=" (match-string 1 url) "&"
|
||||
(match-string 2 url))
|
||||
(concat "to=" url))))
|
||||
subject (cdr-safe (assoc "subject" args)))
|
||||
(concat "to=" url)))))
|
||||
(subject (cdr-safe (assoc "subject" args)))
|
||||
func)
|
||||
(gnus-msg-mail)
|
||||
(while args
|
||||
(setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
|
||||
@ -8499,7 +8501,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
:action 'gnus-button-prev-page
|
||||
:button-keymap gnus-prev-page-map)))
|
||||
|
||||
(defun gnus-button-next-page (&optional args more-args)
|
||||
(defun gnus-button-next-page (&optional _args _more-args)
|
||||
"Go to the next page."
|
||||
(interactive)
|
||||
(let ((win (selected-window)))
|
||||
@ -8507,7 +8509,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(gnus-article-next-page)
|
||||
(select-window win)))
|
||||
|
||||
(defun gnus-button-prev-page (&optional args more-args)
|
||||
(defun gnus-button-prev-page (&optional _args _more-args)
|
||||
"Go to the prev page."
|
||||
(interactive)
|
||||
(let ((win (selected-window)))
|
||||
@ -8535,7 +8537,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
:action 'gnus-button-next-page
|
||||
:button-keymap gnus-next-page-map)))
|
||||
|
||||
(defun gnus-article-button-next-page (arg)
|
||||
(defun gnus-article-button-next-page (_arg)
|
||||
"Go to the next page."
|
||||
(interactive "P")
|
||||
(let ((win (selected-window)))
|
||||
@ -8543,7 +8545,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(gnus-article-next-page)
|
||||
(select-window win)))
|
||||
|
||||
(defun gnus-article-button-prev-page (arg)
|
||||
(defun gnus-article-button-prev-page (_arg)
|
||||
"Go to the prev page."
|
||||
(interactive "P")
|
||||
(let ((win (selected-window)))
|
||||
@ -8594,20 +8596,31 @@ For example:
|
||||
|
||||
(defvar gnus-inhibit-article-treatments nil)
|
||||
|
||||
(defun gnus-treat-article (gnus-treat-condition
|
||||
&optional part-number total-parts gnus-treat-type)
|
||||
(let ((gnus-treat-length (- (point-max) (point-min)))
|
||||
;; Dynamic variables.
|
||||
(defvar part-number) ;FIXME: Lacks a "gnus-" prefix.
|
||||
(defvar total-parts) ;FIXME: Lacks a "gnus-" prefix.
|
||||
(defvar gnus-treat-type)
|
||||
(defvar gnus-treat-condition)
|
||||
(defvar gnus-treat-length)
|
||||
|
||||
(defun gnus-treat-article (condition
|
||||
&optional part-num total type)
|
||||
(let ((gnus-treat-condition condition)
|
||||
(part-number part-num)
|
||||
(total-parts total)
|
||||
(gnus-treat-type type)
|
||||
(gnus-treat-length (- (point-max) (point-min)))
|
||||
(alist gnus-treatment-function-alist)
|
||||
(article-goto-body-goes-to-point-min-p t)
|
||||
(treated-type
|
||||
(or (not gnus-treat-type)
|
||||
(or (not type)
|
||||
(catch 'found
|
||||
(let ((list gnus-article-treat-types))
|
||||
(while list
|
||||
(when (string-match (pop list) gnus-treat-type)
|
||||
(when (string-match (pop list) type)
|
||||
(throw 'found t)))))))
|
||||
(highlightp (gnus-visual-p 'article-highlight 'highlight))
|
||||
val elem)
|
||||
val)
|
||||
(gnus-run-hooks 'gnus-part-display-hook)
|
||||
(dolist (elem alist)
|
||||
(setq val
|
||||
@ -8625,13 +8638,6 @@ For example:
|
||||
(save-restriction
|
||||
(funcall (cadr elem)))))))
|
||||
|
||||
;; Dynamic variables.
|
||||
(defvar part-number)
|
||||
(defvar total-parts)
|
||||
(defvar gnus-treat-type)
|
||||
(defvar gnus-treat-condition)
|
||||
(defvar gnus-treat-length)
|
||||
|
||||
(defun gnus-treat-predicate (val)
|
||||
(cond
|
||||
((null val)
|
||||
@ -8880,7 +8886,7 @@ For example:
|
||||
(gnus-mime-security-show-details handle)
|
||||
(gnus-mime-security-verify-or-decrypt handle))))
|
||||
|
||||
(defun gnus-insert-mime-security-button (handle &optional displayed)
|
||||
(defun gnus-insert-mime-security-button (handle &optional _displayed)
|
||||
(let* ((protocol (mm-handle-multipart-ctl-parameter handle 'protocol))
|
||||
(gnus-tmp-type
|
||||
(concat
|
||||
@ -8928,7 +8934,7 @@ For example:
|
||||
:action 'gnus-widget-press-button
|
||||
:button-keymap gnus-mime-security-button-map
|
||||
:help-echo
|
||||
(lambda (widget)
|
||||
(lambda (_widget)
|
||||
;; Needed to properly clear the message due to a bug in
|
||||
;; wid-edit (XEmacs only).
|
||||
(when (boundp 'help-echo-owns-message)
|
||||
|
||||
@ -1243,6 +1243,7 @@ evaluating FORMS but it is no longer done. So, some programs assuming
|
||||
it if any may malfunction."
|
||||
(if (featurep 'xemacs)
|
||||
`(progn ,@forms)
|
||||
(message "Warning: Using brain-dead macro `mm-with-unibyte-current-buffer'!")
|
||||
(let ((multibyte (make-symbol "multibyte")))
|
||||
`(let ((,multibyte enable-multibyte-characters))
|
||||
(when ,multibyte
|
||||
@ -1253,6 +1254,7 @@ it if any may malfunction."
|
||||
(set-buffer-multibyte t)))))))
|
||||
(put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
|
||||
(put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
|
||||
(make-obsolete 'mm-with-unibyte-current-buffer nil "25.1")
|
||||
|
||||
(defun mm-find-charset-region (b e)
|
||||
"Return a list of Emacs charsets in the region B to E."
|
||||
|
||||
Loading…
Reference in New Issue
Block a user