diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-05-08 20:13:47 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-05-08 20:13:47 -0400 |
| commit | 5b0af214c81666decaf9cebf191a213d205d8a45 (patch) | |
| tree | 49a7caae09cfea07d1c507c0e22d5d9fa1d5836f /lisp/mail | |
| parent | e13e72a27962acc93e7d86afba1ed15363c5229e (diff) | |
| download | emacs-5b0af214c81666decaf9cebf191a213d205d8a45.tar.gz | |
Quieten compilation, eg in --without-x builds.
* lisp/dired-aux.el (lpr-printer-switch):
* lisp/frame.el (tool-bar-height):
* lisp/linum.el (font-info):
* lisp/window.el (font-info, overflow-newline-into-fringe)
(tool-bar-height):
* lisp/emacs-lisp/package-x.el (tar-data-buffer):
* lisp/gnus/gnus-util.el (iswitchb-mode):
* lisp/mail/rmailmm.el (libxml-parse-html-region):
* lisp/net/nsm.el (gnutls-peer-status)
(gnutls-peer-status-warning-describe):
* lisp/net/shr.el (libxml-parse-xml-region):
* lisp/url/url-http.el (gnutls-peer-status): Declare.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailmm.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 00fc25dd440..3dd57b9bab7 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -135,9 +135,10 @@ automatically display the image in the buffer." (cond ((fboundp 'libxml-parse-html-region) 'rmail-mime-render-html-shr) ((executable-find "lynx") 'rmail-mime-render-html-lynx) (t nil)) - "Function to convert HTML to text. Called with buffer containing HTML -extracted from message in a temporary buffer. Converts to text in current -buffer. If NIL, display HTML source." + "Function to convert HTML to text. +Called with buffer containing HTML extracted from message in a +temporary buffer. Converts to text in current buffer. If nil, +display HTML source." :group 'rmail :version "25.1" :type '(choice function (const nil))) @@ -705,6 +706,9 @@ HEADER is a header component of a MIME-entity object (see (insert-buffer-substring source-buffer)) (rmail-mime-fix-inserted-faces start))))))) +(declare-function libxml-parse-html-region "xml.c" + (start end &optional base-url discard-comments)) + (defun rmail-mime-render-html-shr (source-buffer) (let ((dom (with-current-buffer source-buffer (libxml-parse-html-region (point-min) (point-max)))) @@ -732,12 +736,12 @@ HEADER is a header component of a MIME-entity object (see (defun rmail-mime-fix-inserted-faces (start) (while (< start (point)) (let ((face (get-text-property start 'face)) - (next (next-single-property-change + (next (next-single-property-change start 'face (current-buffer) (point)))) (if face ; anything to do? (put-text-property start next 'font-lock-face face)) (setq start next)))) - + (defun rmail-mime-toggle-button (button) "Hide or show the body of the MIME-entity associated with BUTTON." (save-excursion |