1 |
;;; nnimap.el --- imap backend for Gnus |
;;; nnimap.el --- imap backend for Gnus |
2 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Simon Josefsson <jas@pdc.kth.se> |
;; Author: Simon Josefsson <jas@pdc.kth.se> |
391 |
(string :format "Login: %v")) |
(string :format "Login: %v")) |
392 |
(cons :format "%v" |
(cons :format "%v" |
393 |
(const :format "" "password") |
(const :format "" "password") |
394 |
(string :format "Password: %v"))))))) |
(string :format "Password: %v")))))) |
395 |
|
:group 'nnimap) |
396 |
|
|
397 |
(defcustom nnimap-prune-cache t |
(defcustom nnimap-prune-cache t |
398 |
"If non-nil, nnimap check whether articles still exist on server before using data stored in NOV cache." |
"If non-nil, nnimap check whether articles still exist on server before using data stored in NOV cache." |
399 |
:type 'boolean) |
:type 'boolean |
400 |
|
:group 'nnimap) |
401 |
|
|
402 |
(defvar nnimap-request-list-method 'imap-mailbox-list |
(defvar nnimap-request-list-method 'imap-mailbox-list |
403 |
"Method to use to request a list of all folders from the server. |
"Method to use to request a list of all folders from the server. |
804 |
(nnoo-status-message 'nnimap server))) |
(nnoo-status-message 'nnimap server))) |
805 |
|
|
806 |
(defun nnimap-demule (string) |
(defun nnimap-demule (string) |
807 |
(funcall (if (and (fboundp 'string-as-multibyte) |
;; BEWARE: we used to use string-as-multibyte here which is braindead |
808 |
(subrp (symbol-function 'string-as-multibyte))) |
;; because it will turn accidental emacs-mule-valid byte sequences |
809 |
'string-as-multibyte |
;; into multibyte chars. --Stef |
810 |
|
(funcall (if (and (fboundp 'string-to-multibyte) |
811 |
|
(subrp (symbol-function 'string-to-multibyte))) |
812 |
|
'string-to-multibyte |
813 |
'identity) |
'identity) |
814 |
(or string ""))) |
(or string ""))) |
815 |
|
|