- (if (not (locate-library "mail-source"))
- (progn
- (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)))))
- ;;
- ;; Use mail-source.el
- (gnus-group-get-new-news arg)))
+ (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)))))