From 96e2a4ba946ce74d0bfd9573362fd067e9360882 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 19 Sep 2010 17:05:19 +0200 Subject: [PATCH] When using the development version of Gnus, load the gnus-load file. --- lisp/ChangeLog | 2 ++ lisp/gnus.el | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c115bba6c..f32b3b8af 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * gnus.el (gnus-similar-server-opened): Refactor a bit and add comments. (gnus-methods-sloppily-equal): New function. + (gnus): When using the development version of Gnus, load the gnus-load + file. * gnus-start.el (gnus-get-unread-articles): Make sure that we call `gnus-open-server' on each method before trying to scan them etc. This diff --git a/lisp/gnus.el b/lisp/gnus.el index a02c6beac..222992eef 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -4437,6 +4437,10 @@ If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use." (interactive "P") + ;; When using the development version of Gnus, load the gnus-load + ;; file. + (unless (string-match "^Gnus" gnus-version) + (load "gnus-load")) (unless (byte-code-function-p (symbol-function 'gnus)) (message "You should byte-compile Gnus") (sit-for 2)) -- 2.25.1