diff options
Diffstat (limited to 'lisp/gnus/nndoc.el')
| -rw-r--r-- | lisp/gnus/nndoc.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el index ede118d6eb6..7f7db8721db 100644 --- a/lisp/gnus/nndoc.el +++ b/lisp/gnus/nndoc.el | |||
| @@ -356,14 +356,18 @@ from the document.") | |||
| 356 | (setq nndoc-dissection-alist nil) | 356 | (setq nndoc-dissection-alist nil) |
| 357 | (with-current-buffer nndoc-current-buffer | 357 | (with-current-buffer nndoc-current-buffer |
| 358 | (erase-buffer) | 358 | (erase-buffer) |
| 359 | (if (and (stringp nndoc-address) | 359 | (condition-case error |
| 360 | (string-match nndoc-binary-file-names nndoc-address)) | 360 | (if (and (stringp nndoc-address) |
| 361 | (let ((coding-system-for-read 'binary)) | 361 | (string-match nndoc-binary-file-names nndoc-address)) |
| 362 | (mm-insert-file-contents nndoc-address)) | 362 | (let ((coding-system-for-read 'binary)) |
| 363 | (if (stringp nndoc-address) | 363 | (mm-insert-file-contents nndoc-address)) |
| 364 | (nnheader-insert-file-contents nndoc-address) | 364 | (if (stringp nndoc-address) |
| 365 | (insert-buffer-substring nndoc-address)) | 365 | (nnheader-insert-file-contents nndoc-address) |
| 366 | (run-hooks 'nndoc-open-document-hook))))) | 366 | (insert-buffer-substring nndoc-address)) |
| 367 | (run-hooks 'nndoc-open-document-hook)) | ||
| 368 | (file-error | ||
| 369 | (nnheader-report 'nndoc "Couldn't open %s: %s" | ||
| 370 | group error)))))) | ||
| 367 | ;; Initialize the nndoc structures according to this new document. | 371 | ;; Initialize the nndoc structures according to this new document. |
| 368 | (when (and nndoc-current-buffer | 372 | (when (and nndoc-current-buffer |
| 369 | (not nndoc-dissection-alist)) | 373 | (not nndoc-dissection-alist)) |