procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Gnus: bugfixes to make `gnus-mime-save-part-and-strip' work again

Browse source 
* gnus-art.el (gnus-mm-display-part):
* mm-decode.el (mm-shr):
* mm-view.el (mm-inline-text-html-render-with-w3m, mm-inline-text)
(mm-insert-inline): Set insertion type of end-marker, not only
start-marker, of undisplayer so as to stay after inserted text.
This commit is contained in:
Katsumi Yamaoka 2014-06-05 01:38:42 +00:00
parent 444060a55d
commit 343d16e40c
4 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-mm-display-part):
* mm-decode.el (mm-shr):
* mm-view.el (mm-inline-text-html-render-with-w3m, mm-inline-text)
(mm-insert-inline): Set insertion type of end-marker, not only
start-marker, of undisplayer so as to stay after inserted text.
2014-06-02 Andreas Schwab <schwab@linux-m68k.org>
* html2text.el (html2text-get-attr): Fix typo when splitting value from

2
lisp/gnus/gnus-art.el
View file

@ -5736,7 +5736,7 @@ all parts."
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(point-max-marker)))))))
,(copy-marker (point-max) t)))))))
(part
(mm-display-inline handle))))))
(goto-char point)

2
lisp/gnus/mm-decode.el
View file

@ -1868,7 +1868,7 @@ If RECURSIVE, search recursively."
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(point-max-marker))))))))
,(copy-marker (point-max) t))))))))
(defvar shr-map)

6
lisp/gnus/mm-view.el
View file

@ -218,7 +218,7 @@
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(point-max-marker)))))))))
,(copy-marker (point-max) t)))))))))
(defvar mm-w3m-standalone-supports-m17n-p (if (featurep 'mule) 'undecided)
"*T means the w3m command supports the m17n feature.")
@ -392,7 +392,7 @@
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(point-max-marker))))))))
,(copy-marker (point-max) t))))))))
(defun mm-insert-inline (handle text)
"Insert TEXT inline from HANDLE."
@ -405,7 +405,7 @@
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker b t)
,(copy-marker (point))))))))
,(copy-marker (point) t)))))))
(defun mm-inline-audio (handle)
(message "Not implemented"))