[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnorb 321b23b 276/449: Remove gnus-interactive
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnorb 321b23b 276/449: Remove gnus-interactive |
Date: |
Fri, 27 Nov 2020 23:15:54 -0500 (EST) |
branch: externals/gnorb
commit 321b23b1ad1b770e2b2bd27921f069b9394ca4d0
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Remove gnus-interactive
* gnorb-gnus.el (gnorb-gnus-incoming-do-todo gnorb-gnus-view): Don't use
gnus-interactive, it may not work quite right in earlier versions of
Gnus.
---
gnorb-gnus.el | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 7cf3002..4b7a16f 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -483,7 +483,7 @@ work."
;;; call this function on it.
;;;###autoload
-(defun gnorb-gnus-incoming-do-todo (arg headers &optional id)
+(defun gnorb-gnus-incoming-do-todo (arg &optional id)
"Call this function from a received gnus message to store a
link to the message, prompt for a related Org heading, visit the
heading, and either add a note or trigger a TODO state change.
@@ -498,7 +498,7 @@ there match the value of the `gnorb-org-msg-id-key'
property for
any headings. In order for this to work, you will have to have
loaded org-id, and have the variable `org-id-track-globally' set
to t (it is, by default)."
- (interactive (gnus-interactive "P\nH"))
+ (interactive "P")
(when (not (memq major-mode '(gnus-summary-mode gnus-article-mode)))
(user-error "Only works in gnus summary or article mode"))
;; We should only store a link if it's not already at the head of
@@ -507,7 +507,10 @@ to t (it is, by default)."
(setq gnorb-window-conf (current-window-configuration))
(move-marker gnorb-return-marker (point))
(setq gnorb-gnus-message-info nil)
- (let* ((msg-id (mail-header-id headers))
+ (let* ((headers (gnus-data-header
+ (gnus-data-find
+ (gnus-summary-article-number))))
+ (msg-id (mail-header-id headers))
(from (mail-header-from headers))
(subject (mail-header-subject headers))
(date (mail-header-date headers))
@@ -547,10 +550,10 @@ to t (it is, by default)."
related-headings))
(if (catch 'target
(dolist (h related-headings nil)
- (when (yes-or-no-p
- (format "Trigger action on %s"
- (gnorb-pretty-outline h)))
- (throw 'target (setq targ h)))))
+ (when (yes-or-no-p
+ (format "Trigger action on %s"
+ (gnorb-pretty-outline h)))
+ (throw 'target (setq targ h)))))
(gnorb-trigger-todo-action arg targ)
(setq targ (org-refile-get-location
"Trigger heading" nil t))
@@ -660,10 +663,13 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
(gnorb-gnus-insert-format-letter-maybe header)))
;;;###autoload
-(defun gnorb-gnus-view (headers)
+(defun gnorb-gnus-view ()
"Display the first relevant TODO heading for the message under point"
- (interactive (gnus-interactive "H"))
- (let ((tracked-headings
+ (interactive)
+ (let ((headers (gnus-data-header
+ (gnus-data-find
+ (gnus-summary-article-number))))
+ (tracked-headings
(gnorb-find-tracked-headings headers)))
(when tracked-headings
(setq gnorb-window-conf (current-window-configuration))
- [elpa] externals/gnorb d2831b8 237/449: Refactor summary buffer hinting into separate function, (continued)
- [elpa] externals/gnorb d2831b8 237/449: Refactor summary buffer hinting into separate function, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 2be4a71 240/449: Save point with marker when adding headers to replies, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb ba99110 242/449: Check for relevant headings when handling attachments, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 1a0cfc7 243/449: Delete duplicates before and after finding candidates, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 35284f2 248/449: Add TODO for collecting BBDB messages by thread, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 2c0f43d 249/449: Refinements to link extraction, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb e1fb666 257/449: Function for deleting all assocations of an Org heading, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5688114 258/449: Bugfix: Adding mailtos to newly-setup messages, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 04ec3ab 264/449: Fix logic of choosing heading to trigger, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb de0dff5 274/449: Protection for message disassociation, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 321b23b 276/449: Remove gnus-interactive,
Stefan Monnier <=
- [elpa] externals/gnorb 8a9c167 277/449: Fix the cl-lib loading stuff, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb fd91084 278/449: Remove incorrect "fix" for Gnus 5.13, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb c8b80c5 282/449: Bugfix for gnorb-gnus-view, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 9220a10 283/449: Docstring fix, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4b19c83 288/449: New function for pruning dead associations, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 819b1e5 293/449: Suggest binding gnorb-org-view in Org Agenda, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb c13f4df 301/449: Better check for capture cleanup, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 13bb840 302/449: Hint which heading will be triggered, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4f99dd7 304/449: Handle conditions where `registry-search' returns nil, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5897188 305/449: Capture to child/sibling is done, Stefan Monnier, 2020/11/27