From fdae89bbd2d2a31ac84374658389a58b4c3bcdbd Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 22 Jun 1998 17:09:51 +0000 Subject: [PATCH] Modify for interface change in SEMI 1.8 about automatic message/partial combining. --- lisp/gnus-sum.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 07a1b65..e0aba4e 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8923,9 +8923,17 @@ save those articles instead." ;;; @ for mime-partial ;;; -(defun gnus-mime-partial-preview-function () - (gnus-summary-preview-mime-message (gnus-summary-article-number)) - ) +(defun gnus-request-partial-message () + (save-excursion + (let ((number (gnus-summary-article-number)) + (group gnus-newsgroup-name) + (mother gnus-article-buffer)) + (set-buffer (get-buffer-create " *Partial Article*")) + (erase-buffer) + (setq mime-preview-buffer mother) + (gnus-request-original-article number group) + (mime-parse-buffer) + ))) (autoload 'mime-combine-message/partial-pieces-automatically "mime-partial" @@ -8936,12 +8944,9 @@ save those articles instead." (major-mode . gnus-original-article-mode) (method . mime-combine-message/partial-pieces-automatically) (summary-buffer-exp . gnus-summary-buffer) + (request-partial-message-method . gnus-request-partial-message) )) -(set-alist 'mime-view-partial-message-method-alist - 'gnus-original-article-mode - 'gnus-mime-partial-preview-function) - ;;; @ end ;;; -- 1.7.10.4