[elpa] master 217f407: [gnorb] New option gnorb-gnus-refile-use-outline-path, bump to 1.6.0

[Eric Abrahamsen]

branch: master
commit 217f4079a936670f25634ab6d586a30ffb683737
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [gnorb] New option gnorb-gnus-refile-use-outline-path, bump to 1.6.0
    
    * packages/gnorb/gnorb-gnus.el (gnorb-gnus-refile-use-outline-path):
      New option equivalent to `org-refile-use-outline-path'. Also, remove
      defvar for `org-refile-targets'; we require 'org at top-level, and
      shouldn't need it.
    * packages/gnorb/gnorb-gnus.el (gnorb-gnus-attach-part):
      (gnorb-gnus-incoming-do-todo):
      (gnorb-gnus-outgoing-do-todo): Use new option.
    * packages/gnorb/gnorb.org: Document.
---
 packages/gnorb/gnorb-gnus.el | 26 +++++++++++++++++++++++++-
 packages/gnorb/gnorb.el      |  2 +-
 packages/gnorb/gnorb.info    |  6 +++++-
 packages/gnorb/gnorb.org     |  4 ++++
 packages/gnorb/gnorb.texi    |  5 +++++
 5 files changed, 40 insertions(+), 3 deletions(-)

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 3c56f47..07d61f6 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/gnorb-gnus.el
@@ -39,7 +39,6 @@
 (declare-function org-gnus-follow-link "org-gnus"
                  (group article))
 (declare-function org-make-tags-matcher "org" (match))
-(defvar org-refile-targets)
 
 (defgroup gnorb-gnus nil
   "The Gnus bits of Gnorb."
@@ -164,6 +163,19 @@ Must be prefixed with \"u\", eg. \"%uG\"."
   :group 'gnorb-gnus
   :type 'list)
 
+(defcustom gnorb-gnus-refile-use-outline-path 'org
+  "Gnorb equivalent of `org-refile-use-outline-path' (which see).
+Used when selecting Org headings for triggering or attaching
+attachments."
+  :group 'gnorb-gnus
+  :type '(choice
+         (const :tag "Not" nil)
+         (const :tag "Yes" t)
+         (const :tag "Start with file name" file)
+         (const :tag "Start with full file path" full-file-path)
+         (const :tag "Start with buffer name" buffer-name)
+         (const :tag "Use org-refile-use-outline-path" org)))
+
 (defcustom gnorb-gnus-sent-groups nil
   "A list of strings indicating sent mail groups.
 
@@ -207,6 +219,10 @@ each message."
   "Attach HANDLE to an existing org heading."
   (let* ((filename (gnorb-gnus-save-part handle))
         (org-refile-targets gnorb-gnus-trigger-refile-targets)
+        (org-refile-use-outline-path
+         (if (eq gnorb-gnus-refile-use-outline-path 'org)
+             org-refile-use-outline-path
+           gnorb-gnus-refile-use-outline-path))
         (headers (gnus-data-header
                   (gnus-data-find
                    (gnus-summary-article-number))))
@@ -345,6 +361,10 @@ the outgoing message will still be available -- nothing 
else will
 work."
   (interactive "P")
   (let ((org-refile-targets gnorb-gnus-trigger-refile-targets)
+       (org-refile-use-outline-path
+        (if (eq gnorb-gnus-refile-use-outline-path 'org)
+            org-refile-use-outline-path
+          gnorb-gnus-refile-use-outline-path))
        (compose-marker (make-marker))
        header-ids ref-ids rel-headings
        gnorb-window-conf in-reply-to)
@@ -536,6 +556,10 @@ you'll stay in the Gnus summary buffer."
                  (point) (point-max))))
         (link (call-interactively 'org-store-link))
         (org-refile-targets gnorb-gnus-trigger-refile-targets)
+        (org-refile-use-outline-path
+         (if (eq gnorb-gnus-refile-use-outline-path 'org)
+             org-refile-use-outline-path
+           gnorb-gnus-refile-use-outline-path))
         (ref-msg-ids (concat (mail-header-references headers) " "
                              msg-id))
         (related-headings
diff --git a/packages/gnorb/gnorb.el b/packages/gnorb/gnorb.el
index 9356db0..bd0f0b9 100644
--- a/packages/gnorb/gnorb.el
+++ b/packages/gnorb/gnorb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2018  Free Software Foundation, Inc.
 
-;; Version: 1.5.7
+;; Version: 1.6.0
 ;; Package-Requires: ((cl-lib "0.5"))
 
 ;; Maintainer: Eric Abrahamsen <address@hidden>
diff --git a/packages/gnorb/gnorb.info b/packages/gnorb/gnorb.info
index ee9a0df..b888083 100644
--- a/packages/gnorb/gnorb.info
+++ b/packages/gnorb/gnorb.info
@@ -736,6 +736,10 @@ File: gnorb.info,  Node: User Options 2,  Prev: Searching 
With the Registry,  Up
      interface.  This option will be used as the value of
      ‘org-refile-targets’ during that process: see the docstring of
      ‘org-refile-targets’ for the appropriate syntax.
+‘gnorb-gnus-refile-use-outline-path’
+     Similar to the previous option, this option will be used as the
+     value of ‘org-refile-use-outline-path’ when selecting a heading:
+     see the its docstring for the meaning of its potential values.
 ‘gnorb-gnus-new-todo-capture-key’
      Set this to a single-character string pointing at an Org capture
      template to use when creating TODOs from outgoing messages.  The
@@ -842,7 +846,7 @@ Node: User Options 125455
 Node: Misc Gnus28353
 Node: Searching With the Registry28547
 Node: User Options 229849
-Node: Default Keybindings33027
+Node: Default Keybindings33279
 
 End Tag Table
 
diff --git a/packages/gnorb/gnorb.org b/packages/gnorb/gnorb.org
index 951c014..e37036b 100644
--- a/packages/gnorb/gnorb.org
+++ b/packages/gnorb/gnorb.org
@@ -529,6 +529,10 @@ These functions are not bound by default; you might 
consider:
      This option will be used as the value of `org-refile-targets'
      during that process: see the docstring of `org-refile-targets'
      for the appropriate syntax.
+- `gnorb-gnus-refile-use-outline-path' :: Similar to the previous
+     option, this option will be used as the value of
+     `org-refile-use-outline-path' when selecting a heading: see the
+     its docstring for the meaning of its potential values.
 - `gnorb-gnus-new-todo-capture-key' :: Set this to a single-character
      string pointing at an Org capture template to use when creating
      TODOs from outgoing messages. The template is a regular capture
diff --git a/packages/gnorb/gnorb.texi b/packages/gnorb/gnorb.texi
index 5eed70d..7082fc1 100644
--- a/packages/gnorb/gnorb.texi
+++ b/packages/gnorb/gnorb.texi
@@ -730,6 +730,11 @@ it can't, it will prompt you for one, using the refile 
interface.
 This option will be used as the value of `org-refile-targets'
 during that process: see the docstring of `org-refile-targets'
 for the appropriate syntax.
address@hidden `gnorb-gnus-refile-use-outline-path'
+Similar to the previous
+option, this option will be used as the value of
+`org-refile-use-outline-path' when selecting a heading: see the
+its docstring for the meaning of its potential values.
 @item `gnorb-gnus-new-todo-capture-key'
 Set this to a single-character
 string pointing at an Org capture template to use when creating