From e42eeab4b26c1780af63294beae6052046dce762 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 29 Jan 2002 04:28:42 +0000 Subject: [PATCH] * gnus-sum.el (gnus-mime-extract-message/rfc822): New implementation. --- ChangeLog | 5 +++++ lisp/gnus-sum.el | 55 +++++++++++++++++------------------------------------- 2 files changed, 22 insertions(+), 38 deletions(-) diff --git a/ChangeLog b/ChangeLog index e919c2c..ad7bd11 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-01-29 Katsumi Yamaoka + + * lisp/gnus-sum.el (gnus-mime-extract-message/rfc822): New + implementation. + 2002-01-24 Katsumi Yamaoka * lisp/gnus-clfns.el (find-cl-run-time-functions): Insert a diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index fc50a4e..4bd76eb 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -10811,46 +10811,25 @@ If REVERSE, save parts that do not match TYPE." ;;; (defun gnus-mime-extract-message/rfc822 (entity situation) - (let (group article num cwin swin cur) - (with-temp-buffer - (mime-insert-entity-content entity) - (setq group (or (cdr (assq 'group situation)) - (completing-read "Group: " - gnus-active-hashtb - nil - (gnus-read-active-file-p) - gnus-newsgroup-name)) - article (gnus-request-accept-article group))) - (when (and (consp article) - (numberp (setq article (cdr article)))) - (setq num (1+ (or (cdr (assq 'number situation)) 0)) - cwin (get-buffer-window (current-buffer) t)) - (save-window-excursion - (if (setq swin (get-buffer-window gnus-summary-buffer t)) - (select-window swin) - (set-buffer gnus-summary-buffer)) - (setq cur gnus-current-article) - (forward-line num) + "Burst a forwarded article." + (save-excursion + (set-buffer gnus-summary-buffer) + (let ((group (completing-read "Group: " gnus-active-hashtb + nil (gnus-read-active-file-p) + gnus-newsgroup-name 'gnus-group-history)) + article summary buffers) + (gnus-summary-goto-subject gnus-current-article) + (gnus-summary-copy-article 1 group) + (setq article (cdr (gnus-active group))) + (with-temp-buffer + (mime-insert-entity-content entity) + (gnus-request-replace-article article group (current-buffer) t)) + (when (string-equal group gnus-newsgroup-name) + (gnus-summary-goto-subject gnus-current-article) + (forward-line 1) (let (gnus-show-threads) (gnus-summary-goto-subject article t)) - (gnus-summary-clear-mark-forward 1) - (gnus-summary-goto-subject cur)) - (when (and cwin (window-frame cwin)) - (select-frame (window-frame cwin))) - (when (boundp 'mime-acting-situation-to-override) - (set-alist 'mime-acting-situation-to-override - 'group - group) - (set-alist 'mime-acting-situation-to-override - 'after-method - `(progn - (save-current-buffer - (set-buffer gnus-group-buffer) - (gnus-activate-group ,group)) - (gnus-summary-goto-article ,cur - gnus-show-all-headers))) - (set-alist 'mime-acting-situation-to-override - 'number num))))) + (gnus-summary-clear-mark-forward 1))))) (mime-add-condition 'action '((type . message)(subtype . rfc822) -- 1.7.10.4