From 9c98f1de56c0e2fd08ecd991cdc959cbfed9c41f Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sun, 7 Feb 1999 07:33:19 +0000 Subject: [PATCH] 1999-02-07 Tatsuya Ichikawa * lisp/gnus.el (gnus-revision-number): Change to 02 1999-02-04 Tsukamoto Tetsuo * lisp/gnus-offline.el: Delete security notice. (gnus-offline-pop-password-file): Removed. (gnus-offline-pop-password-decoding-function): Removed. (gnus-offline-gnus-get-new-news): Revert to its original. --- ChangeLog | 11 +++++++++ lisp/gnus-offline.el | 64 ++------------------------------------------------ lisp/gnus.el | 2 +- 3 files changed, 14 insertions(+), 63 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2baaafe..77bdf81 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +1999-02-07 Tatsuya Ichikawa + + * lisp/gnus.el (gnus-revision-number): Increment to 03. + +1999-02-04 Tsukamoto Tetsuo + + * lisp/gnus-offline.el: Delete security notice. + (gnus-offline-pop-password-file): Removed. + (gnus-offline-pop-password-decoding-function): Removed. + (gnus-offline-gnus-get-new-news): Revert to its original. + 1999-02-04 Katsumi Yamaoka * lisp/gnus.el (gnus-revision-number): Increment to 02. diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index 8d76ce9..cfbc454 100644 --- a/lisp/gnus-offline.el +++ b/lisp/gnus-offline.el @@ -1,5 +1,5 @@ ;;; gnus-offline.el --- To process mail & news at offline environment. -;;; $Id: gnus-offline.el,v 1.1.2.5.2.31 1999-02-01 11:02:59 yamaoka Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.32 1999-02-07 07:33:18 ichikawa Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -59,27 +59,6 @@ ;;; In Gnus group buffer , type g to get all news and mail. ;;; Then send mail and news in spool directory. ;;; -;;; Security Notice. (This is available before version 2.02) -;;; -;;; You can set the variable gnus-offline-pop-password-file to save your POP -;;; passwords. But TAKE CARE. Use it at your own risk. -;;; If you decide to use it, then write in .emacs or .gnus-offline.el -;;; something like: -;;; -;;; (setq gnus-offline-pop-password-file "~/.pop.passwd") -;;; -;;; and write in this file something like: -;;; -;;; (setq pop3-fma-password -;;; '(("SERVER1" "ACCOUNT1" "PASSWORD1") -;;; ("SERVER2" "ACCOUNT2" "PASSWORD2") -;;; ............................ -;;; )) -;;; -;;; If you want to encode the file with base64, try: -;;; -;;; M-: (base64-encode-region (point-min) (point-max)) -;;; ;;; Variables. ;;; gnus-offline-dialup-program-arguments ;;; ... List of dialup program arguments. @@ -95,9 +74,6 @@ ;;; (minutes) ;;; gnus-offline-dialup-function ... Function to diualup. ;;; gnus-offline-hangup-function ... Function to hangup. -;;; gnus-offline-pop-password-file ... File to keep the POP password info. -;;; gnus-offline-pop-password-decoding-function -;;; ... Function to decode the password info. ;;; Code: @@ -213,23 +189,6 @@ If set to 0 , timer call is disabled." :group 'gnus-offline :type 'function) -(defcustom gnus-offline-pop-password-file nil - "*File name for saving one's POP password information. -This variable should be nil if there's some possibility that -your passwords be stolen." - :group 'gnus-offline - :type '(choice (file :tag "File") - (const nil))) - -(defcustom gnus-offline-pop-password-decoding-function - (function (lambda () (base64-decode-region (point-min) (point-max)))) - "*Function for decoding one's password information. -The value has no effect when `gnus-offline-pop-password-file' -is nil. -This variable might be nil if you don't need to encode your passwords." - :group 'gnus-offline - :type 'function) - ;;; Internal variables. (defvar gnus-offline-connected nil "*If value is t , dialup line is connected status. @@ -384,26 +343,7 @@ If value is nil , dialup line is disconnected status.") (if (functionp gnus-offline-dialup-function) (funcall gnus-offline-dialup-function)) (gnus-offline-get-new-news-function) - (if (null gnus-offline-pop-password-file) - (gnus-group-get-new-news arg) - (let ((buffer (get-buffer-create "*offline-temp*"))) - (unwind-protect - (progn - (if (boundp 'pop3-fma-password) - (setq pop3-fma-save-password-information t)) - (save-excursion - (set-buffer buffer) - (erase-buffer) - (insert-file-contents-as-binary gnus-offline-pop-password-file) - (and gnus-offline-pop-password-decoding-function - (funcall gnus-offline-pop-password-decoding-function)) - (eval-buffer)) - (gnus-group-get-new-news arg)) - (if (boundp 'pop3-fma-password) - (setq pop3-fma-password nil - pop3-fma-save-password-information nil) - (setq mail-source-password-cache nil)) - (kill-buffer buffer))))) + (gnus-group-get-new-news arg)) ;; ;; dialup... diff --git a/lisp/gnus.el b/lisp/gnus.el index 938a49c..b73066e 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -267,7 +267,7 @@ is restarted, and sometimes reloaded." (defconst gnus-version-number "6.10.057" "Version number for this version of gnus.") -(defconst gnus-revision-number "02" +(defconst gnus-revision-number "03" "Revision number for this version of gnus.") (defconst gnus-original-version-number "0.75" -- 1.7.10.4