From: ueno <ueno>
Date: Sun, 6 Feb 2000 08:36:02 +0000 (+0000)
Subject: * gnus-ofsetup.el: Provide `gnus-ofsetup'.
X-Git-Tag: t-gnus-6_14_1-06~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f32018c1b0a6f3edd0d7b08012be6e624386a45;p=elisp%2Fgnus.git-

* gnus-ofsetup.el: Provide `gnus-ofsetup'.
(gnus-setup-for-offline): Add `starttls' to IMAP streams; add
`digest-md5' to IMAP authenticators.
---

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 43ae867..a10a275 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -1,32 +1,35 @@
 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
-;;;
-;;; Copyright (C) 1998 Tatsuya Ichikawa
-;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
-;;;      Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
-;;;
-;;; This file is part of Semi-gnus.
-;;;
-;;; GNU Emacs is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-
-;;; GNU Emacs is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;;; Boston, MA 02111-1307, USA.
-;;;
-;;;; Commentary:
-;;; How to use.
-;;;
-;;;      M-x load[RET]gnus-ofsetup
-;;;      M-x gnus-setup-for-offline
-;;;
+
+;; Copyright (C) 1998 Tatsuya Ichikawa
+
+;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+;;	Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
+;;
+;; This file is part of Semi-gnus.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+
+;; How to use.
+;;
+;;      M-x load[RET]gnus-ofsetup
+;;      M-x gnus-setup-for-offline
+;;
 
 ;;; Code:
 
@@ -508,11 +511,12 @@ mail source specifier とか上記のようなキーワードについてもっとよく
 	    (setq stream (gnus-ofsetup-completing-read-symbol
 			  (format "<%d of %d> %s" j n
 				  (gnus-ofsetup-gettext 'setup-19))
-			  'kerberos4 'ssl 'network))
+			  'kerberos4 'starttls 'ssl 'network))
 	    (setq authentication (gnus-ofsetup-completing-read-symbol
 				  (format "<%d of %d> %s" j n
 					  (gnus-ofsetup-gettext 'setup-14))
-				  'kerberos4 'cram-md5 'anonymous 'login)))
+				  'kerberos4 'digest-md5 'cram-md5 'login
+				  'anonymous)))
 	  (when (string= type "file")
 	    (setq path (read-file-name
 			(format "<%d of %d> %s" j n
@@ -758,4 +762,6 @@ mail source specifier とか上記のようなキーワードについてもっとよく
 (setq mail-source-read-passwd 'read-pw-read-passwd)
 (add-hook 'gnus-setup-news-hook 'read-pw-set-mail-source-passwd-cache)
 
-;; gnus-ofsetup.el Ends here.
+(provide 'gnus-ofsetup)
+
+;;; gnus-ofsetup.el ends here