aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2016-02-29 17:53:00 +1100
committerLars Ingebrigtsen2016-02-29 17:53:00 +1100
commitcb5f690e4a383129895abf96256fd2c52feff618 (patch)
tree9666ff4a37edfc27c3ccc0f277de33f9321dbbec
parent16efc8d53f30d7519cfbcb5837fce70911d6f3a1 (diff)
downloademacs-cb5f690e4a383129895abf96256fd2c52feff618.tar.gz
emacs-cb5f690e4a383129895abf96256fd2c52feff618.zip
Allow reading Gnus reports from an offline cache
* lisp/gnus/gnus-group.el (gnus-read-ephemeral-bug-group): Allow reading bug reports from an offline cache directory.
-rw-r--r--lisp/gnus/gnus-group.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index f42f7989533..3de26094572 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2448,7 +2448,11 @@ the bug number, and browsing the URL must return mbox output."
2448 (with-temp-file tmpfile 2448 (with-temp-file tmpfile
2449 (mm-disable-multibyte) 2449 (mm-disable-multibyte)
2450 (dolist (id ids) 2450 (dolist (id ids)
2451 (url-insert-file-contents (format mbox-url id))) 2451 (let ((file (format "~/.emacs.d/debbugs-cache/%s" id)))
2452 (if (and (not gnus-plugged)
2453 (file-exists-p file))
2454 (insert-file-contents file)
2455 (url-insert-file-contents (format mbox-url id)))))
2452 (goto-char (point-min)) 2456 (goto-char (point-min))
2453 ;; Add the debbugs address so that we can respond to reports easily. 2457 ;; Add the debbugs address so that we can respond to reports easily.
2454 (while (re-search-forward "^To: " nil t) 2458 (while (re-search-forward "^To: " nil t)