From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jarmo Hurri Subject: [PATCH] Give possibility to start gnus with gnus-no-server Date: Mon, 24 Sep 2012 16:57:28 +0300 Message-ID: <87y5jzikvr.fsf@syk.fi> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60735) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TG9AR-0005Xn-JZ for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 09:57:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TG9AL-00057z-CB for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 09:57:47 -0400 Received: from plane.gmane.org ([80.91.229.3]:59985) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TG9AL-00055X-55 for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 09:57:41 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1TG9AN-000522-Ue for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 15:57:43 +0200 Received: from host-137-163-18-130.edu.hel.fi ([137.163.18.130]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 24 Sep 2012 15:57:43 +0200 Received: from jarmo.hurri by host-137-163-18-130.edu.hel.fi with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 24 Sep 2012 15:57:43 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Greetings. I tried to use org today together with gnus, but was unable to access gnus via org, because I always start gnus with gnus-no-server. The attached patch enables this through a customizeable variable. -- Jarmo --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-Give-possibility-to-start-gnus-with-gnus-no-server.patch Content-Description: gnus-no-server >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 --=-=-=--