From eefb790eeb1bb3e3f5259726f2932953a026cb03 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 5 Aug 2000 19:08:21 +0000 Subject: [PATCH] * gnus-sum.el (gnus-summary-reparent-thread): Narrow to the headers. * gnus-topic.el (gnus-topic-kill-group): Move up one line so that we update the right topic.. * mm-decode.el (mm-display-external): Put point at start. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-sum.el | 18 ++++++++++-------- lisp/gnus-topic.el | 7 ++++++- lisp/mm-decode.el | 1 + 4 files changed, 27 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b0789704e..e07bfc99f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2000-08-10 20:22:09 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-reparent-thread): Narrow to the + headers. + + * gnus-topic.el (gnus-topic-kill-group): Move up one line so that + we update the right topic.. + + * mm-decode.el (mm-display-external): Put point at start. + 2000-08-10 Kai Großjohann * nnmail.el (nnmail-expiry-target): More explicit documentation. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8e304697a..f8446187b 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8688,14 +8688,16 @@ is non-nil or the Subject: of both articles are the same." (unless (and message-id (not (equal message-id ""))) (error "No message-id in desired parent")) (gnus-with-article current-article - (goto-char (point-min)) - (if (re-search-forward "^References: " nil t) - (progn - (re-search-forward "^[^ \t]" nil t) - (forward-line -1) - (end-of-line) - (insert " " message-id)) - (insert "References: " message-id "\n"))) + (save-restriction + (goto-char (point-min)) + (message-narrow-to-head) + (if (re-search-forward "^References: " nil t) + (progn + (re-search-forward "^[^ \t]" nil t) + (forward-line -1) + (end-of-line) + (insert " " message-id)) + (insert "References: " message-id "\n")))) (set-buffer gnus-summary-buffer) (gnus-summary-unmark-all-processable) (gnus-summary-update-article current-article) diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 88fe35d8b..7981461c8 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -1206,7 +1206,12 @@ If COPYP, copy the groups instead." (gnus-topic-find-topology topic nil nil gnus-topic-topology) (gnus-topic-enter-dribble)) (gnus-group-kill-group n discard) - (gnus-topic-update-topic))) + (if (not (gnus-group-topic-p)) + (gnus-topic-update-topic) + ;; Move up one line so that we update the right topic. + (forward-line -1) + (gnus-topic-update-topic) + (forward-line 1)))) (defun gnus-topic-yank-group (&optional arg) "Yank the last topic." diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index c325f8673..df152347a 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -368,6 +368,7 @@ external if displayed external." (buffer-disable-undo) (mm-set-buffer-file-coding-system mm-binary-coding-system) (insert-buffer-substring cur) + (goto-char (point-min)) (message "Viewing with %s" method) (let ((mm (current-buffer)) (non-viewer (assq 'non-viewer -- 2.25.1