[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 69f20365543 1/4: Track article while moving between gnus groups
From: |
Andrew G Cohen |
Subject: |
master 69f20365543 1/4: Track article while moving between gnus groups |
Date: |
Fri, 31 Mar 2023 21:58:34 -0400 (EDT) |
branch: master
commit 69f20365543f30263b9c6856071d5a8610490a24
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>
Track article while moving between gnus groups
* lisp/gnus/gnus-sum.el (gnus-current-move-article): New variable to
track article while moving.
(gnus-summary-move-article): Set gnus-current-move-article when
moving/copying/crossposting or respooling.
---
lisp/gnus/gnus-sum.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 0e81f95cd15..f13db8d9167 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -1408,6 +1408,7 @@ the normal Gnus MIME machinery."
(defvar gnus-newsgroup-adaptive-score-file nil)
(defvar gnus-current-score-file nil)
(defvar gnus-current-move-group nil)
+(defvar gnus-current-move-article nil)
(defvar gnus-current-copy-group nil)
(defvar gnus-current-crosspost-group nil)
(defvar gnus-newsgroup-display nil)
@@ -10248,6 +10249,7 @@ ACTION can be either `move' (the default), `crosspost'
or `copy'."
article gnus-newsgroup-name (current-buffer) t)))
;; run the move/copy/crosspost/respool hook
+ (set (intern "gnus-current-move-article") (cdr art-group))
(run-hook-with-args 'gnus-summary-article-move-hook
action
(gnus-data-header (gnus-data-find article))