[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnorb 9e95e90 387/449: Gnorb: New option gnorb-gnus-tic
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnorb 9e95e90 387/449: Gnorb: New option gnorb-gnus-tick-all-tracked-messages |
Date: |
Fri, 27 Nov 2020 23:16:17 -0500 (EST) |
branch: externals/gnorb
commit 9e95e90a0aee56e0df5d87550b0042212b25bbe8
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Gnorb: New option gnorb-gnus-tick-all-tracked-messages
Fixes #34
* packages/gnorb/gnorb-gnus.el (gnorb-gnus-tick-all-tracked-messages):
New option, does what it says.
* packages/gnorb/gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Maybe
tick messages here.
(gnorb-gnus-quick-reply): And here.
* packages/gnorb/gnorb.info: Document.
---
gnorb-gnus.el | 28 ++++++++++++++++++++--------
gnorb.info | 10 +++++++---
gnorb.org | 3 +++
gnorb.texi | 4 ++++
4 files changed, 34 insertions(+), 11 deletions(-)
diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 0c21b58..abf0739 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -110,6 +110,13 @@ register."
:group 'gnorb-gnus
:type 'boolean)
+(defcustom gnorb-gnus-tick-all-tracked-messages nil
+ "When non-nil, add the tick mark to all tracked messages.
+This happens only once, at the time the association is created.
+Ticks can be safely removed later."
+ :group 'gnorb-gnus
+ :type 'boolean)
+
(defcustom gnorb-gnus-summary-mark-format-letter "g"
"Format letter to be used as part of your
`gnus-summary-line-format', to indicate in the *Summary* buffer
@@ -528,14 +535,14 @@ work."
;;;###autoload
(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 trigger an action on it \(see
-`gnorb-org-trigger-actions'\).
-
-If you've set up message tracking \(with
-`gnorb-tracking-initialize'\), Gnorb can guess which Org heading
-you probably want to trigger, which can save some time. It does
+ "Use the message under point to trigger an action on an Org heading.
+This function stores a link to the message, prompts for a related
+Org heading, visits the heading, and triggers an action on
+it (see `gnorb-org-trigger-actions').
+
+If you've set up message tracking (with
+`gnorb-tracking-initialize'), Gnorb can guess which Org heading
+you probably want to trigger, which can save some time. It does
this by looking in the References header, and seeing if any of
the messages referenced there are already being tracked by any
headings.
@@ -646,6 +653,8 @@ you'll stay in the Gnus summary buffer."
(message "Message text copied to kill ring"))))
(with-current-buffer buf
(dolist (a articles)
+ (when gnorb-gnus-tick-all-tracked-messages
+ (gnus-summary-mark-article a gnus-ticked-mark))
(gnus-summary-update-article a))))
(error
;; If these are left populated after an error, it plays hell
@@ -686,6 +695,9 @@ reply."
(let ((ret (make-marker)))
(setq gnorb-window-conf (current-window-configuration))
(move-marker gnorb-return-marker (point))
+ (when gnorb-gnus-tick-all-tracked-messages
+ (gnus-summary-mark-article art-no gnus-ticked-mark))
+ (gnus-summary-update-article art-no)
;; Assume the first heading is the one we want.
(gnorb-registry-make-entry
msg-id from subject targ group)
diff --git a/gnorb.info b/gnorb.info
index c1a54f3..0d848db 100644
--- a/gnorb.info
+++ b/gnorb.info
@@ -663,6 +663,10 @@ File: gnorb.info, Node: User Options 2, Up: Misc Gnus
Treat all capture templates as if they had the :gnus-attachments
key set to “t”. This only has any effect if you’re capturing from
a Gnus summary or article buffer.
+‘gnorb-gnus-tick-all-tracked-messages’
+ When non-nil, always add the tick mark to messages when they are
+ first associated with an Org heading. The mark can be safely
+ deleted afterwards.
‘gnorb-trigger-todo-default’
Set to either ’note or ’todo to tell ‘gnorb-gnus-incoming-do-todo’
what to do by default. You can reach the non-default behavior by
@@ -775,9 +779,9 @@ Node: User Options22106
Node: Misc Org23629
Node: Inserting BBDB links23804
Node: User Options 124060
-Node: Misc Gnus26958
-Node: User Options 227120
-Node: Default Keybindings30057
+Node: Misc Gnus26774
+Node: User Options 226936
+Node: Default Keybindings30078
End Tag Table
diff --git a/gnorb.org b/gnorb.org
index b3f71fd..1d77eae 100644
--- a/gnorb.org
+++ b/gnorb.org
@@ -464,6 +464,9 @@ insert an Org link to that record at point.
if they had the :gnus-attachments key set to "t". This only has
any effect if you're capturing from a Gnus summary or article
buffer.
+- `gnorb-gnus-tick-all-tracked-messages' :: When non-nil, always add
+ the tick mark to messages when they are first associated with an
+ Org heading. The mark can be safely deleted afterwards.
- `gnorb-trigger-todo-default' :: Set to either 'note or 'todo to tell
`gnorb-gnus-incoming-do-todo' what to do by default. You can
reach the non-default behavior by calling that function with a
diff --git a/gnorb.texi b/gnorb.texi
index a4b3f09..6c6485c 100644
--- a/gnorb.texi
+++ b/gnorb.texi
@@ -653,6 +653,10 @@ Treat all capture templates as
if they had the :gnus-attachments key set to ``t''. This only has
any effect if you're capturing from a Gnus summary or article
buffer.
+@item `gnorb-gnus-tick-all-tracked-messages'
+When non-nil, always add
+the tick mark to messages when they are first associated with an
+Org heading. The mark can be safely deleted afterwards.
@item `gnorb-trigger-todo-default'
Set to either 'note or 'todo to tell
`gnorb-gnus-incoming-do-todo' what to do by default. You can
- [elpa] externals/gnorb 6a3ea57 368/449: Update documentation, (continued)
- [elpa] externals/gnorb 6a3ea57 368/449: Update documentation, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d61d9b8 370/449: Remove unnecessary with-no-warnings, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb a370e64 372/449: Rename msg-id-to-group to msg-id-request-head, refactor, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 943606f 373/449: Bump Gnorb version to 1.2, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb e7fa2d2 378/449: New copy-message-text behavior, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 8509773 376/449: Don't let the Gnus summary format group create registry entries, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4b215ae 379/449: gnorb-utils needs macros from nnheader, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4a732d9 384/449: Tweak text search in gnorb-org-view, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d304558 383/449: Fix replying to most recent tracked message; bump to 1.3.2, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb b630235 390/449: Gnorb: Tweaks to gnorb-org-extract-mail-tracking, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 9e95e90 387/449: Gnorb: New option gnorb-gnus-tick-all-tracked-messages,
Stefan Monnier <=
- [elpa] externals/gnorb 09d5487 386/449: New option gnorb-org-log-add-link, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb ed11f5d 399/449: Gnorb: Fix and bump to 1.4.2, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb a3f4fbd 400/449: Gnorb: The proper link type is "mailto", not "mail", Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb ba976d5 401/449: Prefer defalias to fset, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb e8d0043 405/449: Missing a require for seq package, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb cb25e86 406/449: New function gnorb-gnus-search-registry, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5f885be 398/449: Gnorb: New command for inserting tracked messages; bump to 1.4.1, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 8922fd0 409/449: [gnorb] Fix immediate and inexplicable typos, bump to 1.5.1, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 0c20b7d 397/449: Provide Org tagging for Gnus messages, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb c2f837c 341/449: Improve efficiency of retrieving tracked messages, Stefan Monnier, 2020/11/27