>From 02e2822e733122b94adbe622b6945c6bca516c3d Mon Sep 17 00:00:00 2001 From: Jarmo Hurri Date: Mon, 24 Sep 2012 16:10:06 +0300 Subject: [PATCH] Give possibility to start gnus with gnus-no-server * lisp/org-gnus.el: Added a new customizable boolean variable org-gnus-no-server and support for it in function org-gnus-no-new-news. --- lisp/org-gnus.el | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 8ae41ee..2e0b5b7 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 + "If non-nil, gnus is started in org using the function 'org-gnus-no-server' +instead of 'gnus'." + :group 'org-gnus + :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) -- 1.7.7.6