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

Enable gnus-read-ephemeral-* to run multiple times (bug#29008)

Browse source 
NOTE: *DO NOT* merge this change to the trunk.

* lisp/gnus/gnus-group.el (gnus-read-ephemeral-gmane-group)
(gnus-read-ephemeral-bug-group): Make it work for any number of times
for the case `url-automatic-caching' is set (bug#29008).
This commit is contained in:
Katsumi Yamaoka 2017-10-27 01:13:25 +00:00
parent 015f0bb2d8
commit 7b29db222f
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-group.el
View file

@ -2373,7 +2373,10 @@ specified by `gnus-gmane-group-download-format'."
(with-temp-file tmpfile
(url-insert-file-contents
(format gnus-gmane-group-download-format
group start (+ start range)))
group start (+ start range))
t)
;; `url-insert-file-contents' sets this because of the 2nd arg.
(setq buffer-file-name nil)
(write-region (point-min) (point-max) tmpfile)
(gnus-group-read-ephemeral-group
(format "nndoc+ephemeral:%s.start-%s.range-%s" group start range)
@ -2463,7 +2466,7 @@ the bug number, and browsing the URL must return mbox output."
(if (and (not gnus-plugged)
(file-exists-p file))
(insert-file-contents file)
(url-insert-file-contents (format mbox-url id)))))
(url-insert-file-contents (format mbox-url id) t))))
;; Add the debbugs address so that we can respond to reports easily.
(let ((address
(format "%s@%s" (car ids)
@ -2488,7 +2491,9 @@ the bug number, and browsing the URL must return mbox output."
(insert ", " address))
(insert "To: " address "\n")))
(goto-char (point-max))
(widen)))))
(widen)))
;; `url-insert-file-contents' sets this because of the 2nd arg.
(setq buffer-file-name nil)))
(gnus-group-read-ephemeral-group
(format "nndoc+ephemeral:bug#%s"
(mapconcat 'number-to-string ids ","))