diff options
| author | Lars Ingebrigtsen | 2016-02-29 17:53:00 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-29 17:53:00 +1100 |
| commit | cb5f690e4a383129895abf96256fd2c52feff618 (patch) | |
| tree | 9666ff4a37edfc27c3ccc0f277de33f9321dbbec | |
| parent | 16efc8d53f30d7519cfbcb5837fce70911d6f3a1 (diff) | |
| download | emacs-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.el | 6 |
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) |