Commit 0d46b5f1 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

Gnus: fix last change

* gnus-art.el (gnus-article-edit-part): Don't modifiy markers.
(gnus-article-read-summary-keys):
Don't bug out when there is no article in the summary buffer.

* 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): Revert last changes.
parent 343d16e4
2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-edit-part): Don't modifiy markers.
(gnus-article-read-summary-keys):
Don't bug out when there is no article in the summary buffer.
* 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): Revert last changes.
2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org>
 
* gnus-art.el (gnus-mm-display-part):
......
......@@ -4987,7 +4987,6 @@ and `gnus-mime-delete-part', and not provided at run-time normally."
(gnus-article-edit-article
`(lambda ()
(buffer-disable-undo)
(erase-buffer)
(let ((mail-parse-charset (or gnus-article-charset
',gnus-newsgroup-charset))
(mail-parse-ignored-charsets
......@@ -4995,7 +4994,11 @@ and `gnus-mime-delete-part', and not provided at run-time normally."
',gnus-newsgroup-ignored-charsets))
(mbl mml-buffer-list))
(setq mml-buffer-list nil)
(insert-buffer-substring gnus-original-article-buffer)
(delete-region
(point-min)
(prog1
(goto-char (point-max))
(insert-buffer-substring gnus-original-article-buffer)))
(mime-to-mml ',handles)
(setq gnus-article-mime-handles nil)
(let ((mbl1 mml-buffer-list))
......@@ -5736,7 +5739,7 @@ all parts."
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(copy-marker (point-max) t)))))))
,(point-max-marker)))))))
(part
(mm-display-inline handle))))))
(goto-char point)
......@@ -6790,7 +6793,7 @@ not have a face in `gnus-article-boring-faces'."
(when (eq obuf (current-buffer))
(set-buffer in-buffer)
t))
(setq selected (gnus-summary-select-article))
(setq selected (ignore-errors (gnus-summary-select-article)))
(set-buffer obuf)
(unless not-restore-window
(set-window-configuration owin))
......
......@@ -1868,7 +1868,7 @@ If RECURSIVE, search recursively."
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(copy-marker (point-max) t))))))))
,(point-max-marker))))))))
(defvar shr-map)
......
......@@ -218,7 +218,7 @@
`(lambda ()
(let ((inhibit-read-only t))
(delete-region ,(copy-marker (point-min) t)
,(copy-marker (point-max) t)))))))))
,(point-max-marker)))))))))
(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)
,(copy-marker (point-max) t))))))))
,(point-max-marker))))))))
(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) t)))))))
,(point-marker)))))))
(defun mm-inline-audio (handle)
(message "Not implemented"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment