projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Indent.
[gnus]
/
lisp
/
gnus-int.el
diff --git
a/lisp/gnus-int.el
b/lisp/gnus-int.el
index
ef15a47
..
1190d79
100644
(file)
--- a/
lisp/gnus-int.el
+++ b/
lisp/gnus-int.el
@@
-1,6
+1,6
@@
;;; gnus-int.el --- backend interface functions for Gnus
;;; gnus-int.el --- backend interface functions for Gnus
-;; Copyright (C) 1996-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1996-201
2
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-43,11
+43,13
@@
(defcustom gnus-after-set-mark-hook nil
"Hook called just after marks are set in a group."
(defcustom gnus-after-set-mark-hook nil
"Hook called just after marks are set in a group."
+ :version "24.1"
:group 'gnus-start
:type 'hook)
(defcustom gnus-before-update-mark-hook nil
"Hook called just before marks are updated in a group."
:group 'gnus-start
:type 'hook)
(defcustom gnus-before-update-mark-hook nil
"Hook called just before marks are updated in a group."
+ :version "24.1"
:group 'gnus-start
:type 'hook)
:group 'gnus-start
:type 'hook)
@@
-63,6
+65,13
@@
server denied."
(const :tag "Deny server" denied)
(const :tag "Unplug Agent" offline)))
(const :tag "Deny server" denied)
(const :tag "Unplug Agent" offline)))
+(defcustom gnus-nntp-server nil
+ "The name of the host running the NNTP server."
+ :group 'gnus-server
+ :type '(choice (const :tag "disable" nil)
+ string))
+(make-obsolete-variable 'gnus-nntp-server 'gnus-select-method "24.1")
+
(defvar gnus-internal-registry-spool-current-method nil
"The current method, for the registry.")
(defvar gnus-internal-registry-spool-current-method nil
"The current method, for the registry.")
@@
-238,7
+247,7
@@
If it is down, start it up (again)."
(eq (nth 1 (assoc method gnus-opened-servers))
'denied))
(eq (nth 1 (assoc method gnus-opened-servers))
'denied))
-(defvar gnus-backend-trace
t
)
+(defvar gnus-backend-trace
nil
)
(defun gnus-open-server (gnus-command-method)
"Open a connection to GNUS-COMMAND-METHOD."
(defun gnus-open-server (gnus-command-method)
"Open a connection to GNUS-COMMAND-METHOD."
@@
-255,7
+264,8
@@
If it is down, start it up (again)."
;; If this method was previously denied, we just return nil.
(if (eq (nth 1 elem) 'denied)
(progn
;; If this method was previously denied, we just return nil.
(if (eq (nth 1 elem) 'denied)
(progn
- (gnus-message 1 "Denied server %s" server)
+ (gnus-message
+ 1 "Server %s previously determined to be down; not retrying" server)
nil)
;; Open the server.
(let* ((open-server-function
nil)
;; Open the server.
(let* ((open-server-function
@@
-348,7
+358,7
@@
If it is down, start it up (again)."
infos data))
(defun gnus-retrieve-group-data-early (gnus-command-method infos)
infos data))
(defun gnus-retrieve-group-data-early (gnus-command-method infos)
- "Start early async retrival of data from GNUS-COMMAND-METHOD."
+ "Start early async retri
e
val of data from GNUS-COMMAND-METHOD."
(when (stringp gnus-command-method)
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
(funcall (gnus-get-function gnus-command-method 'retrieve-group-data-early)
(when (stringp gnus-command-method)
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
(funcall (gnus-get-function gnus-command-method 'retrieve-group-data-early)
@@
-388,7
+398,7
@@
If it is down, start it up (again)."
result))
(defun gnus-request-compact (gnus-command-method)
result))
(defun gnus-request-compact (gnus-command-method)
- "Request groups compaction
from GNUS-COMMAND-METHOD."
+ "Request groups compaction from GNUS-COMMAND-METHOD."
(when (stringp gnus-command-method)
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
(funcall (gnus-get-function gnus-command-method 'request-compact)
(when (stringp gnus-command-method)
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
(funcall (gnus-get-function gnus-command-method 'request-compact)
@@
-516,11
+526,12
@@
If BUFFER, insert the article in that group."
article (gnus-group-real-name group)
(nth 1 gnus-command-method) buffer)))
article (gnus-group-real-name group)
(nth 1 gnus-command-method) buffer)))
-(defun gnus-request-thread (header)
+(defun gnus-request-thread (header
group
)
"Request the headers in the thread containing the article specified by HEADER."
"Request the headers in the thread containing the article specified by HEADER."
- (let ((gnus-command-method (gnus-find-method-for-group g
nus-newsgroup-name
)))
+ (let ((gnus-command-method (gnus-find-method-for-group g
roup
)))
(funcall (gnus-get-function gnus-command-method 'request-thread)
(funcall (gnus-get-function gnus-command-method 'request-thread)
- header)))
+ header
+ (gnus-group-real-name group))))
(defun gnus-warp-to-article ()
"Warps from an article in a virtual group to the article in its
(defun gnus-warp-to-article ()
"Warps from an article in a virtual group to the article in its