From 29cd986b8bfa26321f4da05fcb8f245c8cce3fa8 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 6 Sep 2010 00:41:06 +0000 Subject: [PATCH] gnus-html.el (gnus-article-html): Allow calling without specifying the handle. In that case, dissect the buffer first. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-html.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6a02792642d..742ffb5ec16 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-05 Lars Magne Ingebrigtsen + * gnus-html.el (gnus-article-html): Allow calling without specifying + the handle. In that case, dissect the buffer first. + * gnus-sum.el (gnus-set-mode-line): Don't pad the mode line string. * nnimap.el (nnimap-open-connection): Revert the change that would look 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 -- 2.39.2