diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-06 00:41:06 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-06 00:41:06 +0000 |
| commit | 29cd986b8bfa26321f4da05fcb8f245c8cce3fa8 (patch) | |
| tree | fc044cc044691093e282bea32552b24f53ada6ba /lisp/gnus/gnus-html.el | |
| parent | 29d31b5515f82d76050786891042bf0c0441b88e (diff) | |
| download | emacs-29cd986b8bfa26321f4da05fcb8f245c8cce3fa8.tar.gz | |
gnus-html.el (gnus-article-html): Allow calling without specifying the handle. In that case, dissect the buffer first.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index a298fa0b63a..3b7d2527c99 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -73,8 +73,10 @@ fit these criteria." map)) ;;;###autoload -(defun gnus-article-html (handle) +(defun gnus-article-html (&optional handle) (let ((article-buffer (current-buffer))) + (unless handle + (setq handle (mm-dissect-buffer t))) (save-restriction (narrow-to-region (point) (point)) (save-excursion |