[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5317193 4/4: Eliminate unneeded warp-to-article in
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] master 5317193 4/4: Eliminate unneeded warp-to-article in gnus article referral |
Date: |
Sat, 22 Apr 2017 21:15:53 -0400 (EDT) |
branch: master
commit 5317193fe55d130a456fe0cf06c56f027d617b09
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>
Eliminate unneeded warp-to-article in gnus article referral
* lisp/gnus/gnus-sum.el (gnus-summary-refer-thread):
(gnus-summary-refer-article): Remove gnus-warp-to article call.
---
lisp/gnus/gnus-sum.el | 2 --
1 file changed, 2 deletions(-)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 2414e86..183cd46 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9016,7 +9016,6 @@ LIMIT (the numerical prefix) old headers. If LIMIT is
non-numeric or nil fetch the number specified by the
`gnus-refer-thread-limit' variable."
(interactive "P")
- (gnus-warp-to-article)
(let* ((header (gnus-summary-article-header))
(id (mail-header-id header))
(gnus-inhibit-demon t)
@@ -9105,7 +9104,6 @@ non-numeric or nil fetch the number specified by the
(defun gnus-summary-refer-article (message-id)
"Fetch an article specified by MESSAGE-ID."
(interactive "sMessage-ID: ")
- (gnus-warp-to-article)
(when (and (stringp message-id)
(not (zerop (length message-id))))
(setq message-id (replace-regexp-in-string " " "" message-id))