/[emacs]/emacs/lisp/gnus/nnimap.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnimap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.2.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.13.2.2 by rsteib, Mon Aug 30 18:18:30 2004 UTC
# Line 1  Line 1 
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>
# Line 391  just like \"ticked\" articles, in other Line 391  just like \"ticked\" articles, in other
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.
# Line 802  function is generally only called when G Line 804  function is generally only called when G
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    

Legend:
Removed from v.1.13.2.1  
changed lines
  Added in v.1.13.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26