From: ichikawa <ichikawa>
Date: Mon, 25 Jan 1999 07:09:53 +0000 (+0000)
Subject: * lisp/gnus-offline.el
X-Git-Tag: pgnus-ichikawa-199901251900~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=71293bc32bc2958535310307bb7a1cfaeb26879b;p=elisp%2Fgnus.git-

* lisp/gnus-offline.el
(gnus-offline-pop-password-file): New variable.
(gnus-offline-pop-password-decoding-function): New variable.
(gnus-offline-get-new-news): When `gnus-offline-pop-password-file
---

diff --git a/ChangeLog b/ChangeLog
index 16860d2..3de5937 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+1999-01-25  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+	
+	* lisp/gnus-offline.el (gnus-offline-pop-password-file): New
+	variable.
+	(gnus-offline-pop-password-decoding-function): New variable.
+	(gnus-offline-get-new-news): When `gnus-offline-pop-password-file'
+	is non-nil, get one's password information from a file specified
+	by this variable, and don't store the passwords as a variable.
+	* lisp/smiley.el (smiley-buffer): Avoid a few duplicate
+	translations.
+	
 1999-01-23  Kiyokazu SUTO  <suto@merry.xmath.ous.ac.jp>
 
 	* lisp/gnus-msg.el (gnus-inews-yank-articles): Use
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index fa7da04..83992f0 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.25 1999-01-13 06:53:38 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.26 1999-01-25 07:09:51 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -189,6 +189,23 @@ 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.
@@ -340,7 +357,25 @@ 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)
-  (gnus-group-get-new-news arg))
+  (let (buffer)
+    (unwind-protect
+	(progn
+	  (save-excursion
+	    (or pop3-fma-password
+		(when gnus-offline-pop-password-file
+		  (setq pop3-fma-save-password-information t)
+		  (setq buffer (get-buffer-create "*offline-temp*"))
+		  (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))
+      (when gnus-offline-pop-password-file
+	(setq pop3-fma-password nil)
+	(setq pop3-fma-save-password-information nil)
+	(kill-buffer buffer)))))
 
 ;;
 ;; dialup...
diff --git a/lisp/smiley.el b/lisp/smiley.el
index 385d688..891b0b7 100644
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -255,8 +255,13 @@ above them."
 	  (while (re-search-forward regexp nd t)
 	    (let* ((start (match-beginning group))
 		   (end (match-end group))
-		   (glyph (smiley-create-glyph (buffer-substring start end)
-					       file)))
+		   (glyph
+		    (and (or (eq start 1)
+			     (not (string-match "\\(\\^\\|;\\|_\\);)" 
+						(buffer-substring 
+						 (1- start) (+ start 2)))))
+			 (smiley-create-glyph (buffer-substring start end)
+					      file))))
 	      (when glyph
 		(mapcar 'delete-annotation (annotations-at end))
 		(let ((ext (make-extent start end))