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
This commit is contained in:
Jarmo Hurri 2012-09-25 11:55:26 +02:00 committed by Bastien Guerry
parent 6781b196aa
commit 108689550f

View file

@ -66,6 +66,12 @@ this variable to `t'."
:version "24.1" :version "24.1"
:type 'boolean) :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 ;; Install the link type
(org-add-link-type "gnus" 'org-gnus-open) (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 () (defun org-gnus-no-new-news ()
"Like `M-x gnus' but doesn't check for 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) (provide 'org-gnus)