summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarmo Hurri <jarmo.hurri@syk.fi>2012-09-25 11:55:26 +0200
committerBastien Guerry <bzg@altern.org>2012-09-25 11:55:26 +0200
commit108689550fe8567b47f4d602223e6e4d6dded6fc (patch)
treefd084b42d022ae51e089b858aa2e3c26be366e00
parent6781b196aad1d73f78efe1b10cfdf333dbee63fb (diff)
downloadorg-mode-108689550fe8567b47f4d602223e6e4d6dded6fc.tar.gz
org-gnus.el: New option to start Gnus with `gnus-no-server'
* org-gnus.el (org-gnus-no-server): New option to start Gnus using `gnus-no-server'. (org-gnus-no-new-news): Use the new option. TINYCHANGE
-rw-r--r--lisp/org-gnus.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index 8ae41ee..c5134f0 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -66,6 +66,12 @@ this variable to `t'."
:version "24.1"
:type 'boolean)
+(defcustom org-gnus-no-server nil
+ "Should Gnus be started using `gnus-no-server'?"
+ :group 'org-gnus
+ ;; :version "24.3"
+ :type 'boolean)
+
;; Install the link type
(org-add-link-type "gnus" 'org-gnus-open)
@@ -287,7 +293,7 @@ If `org-store-link' was called with a prefix arg the meaning of
(defun org-gnus-no-new-news ()
"Like `M-x gnus' but doesn't check for new news."
- (if (not (gnus-alive-p)) (gnus)))
+ (if (not (gnus-alive-p)) (if org-gnus-no-server (gnus-no-server) (gnus))))
(provide 'org-gnus)