1 |
;;; nnimap.el --- imap backend for Gnus |
;;; nnimap.el --- imap backend for Gnus |
2 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
|
3 |
|
;; Copyright (C) 1998,1999,2000,01,02,2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Simon Josefsson <jas@pdc.kth.se> |
;; Author: Simon Josefsson <jas@pdc.kth.se> |
6 |
;; Jim Radford <radford@robby.caltech.edu> |
;; Jim Radford <radford@robby.caltech.edu> |
672 |
(nnoo-status-message 'nnimap server))) |
(nnoo-status-message 'nnimap server))) |
673 |
|
|
674 |
(defun nnimap-demule (string) |
(defun nnimap-demule (string) |
675 |
(funcall (if (and (fboundp 'string-as-multibyte) |
;; BEWARE: we used to use string-as-multibyte here which is braindead |
676 |
(subrp (symbol-function 'string-as-multibyte))) |
;; because it will turn accidental emacs-mule-valid byte sequences |
677 |
'string-as-multibyte |
;; into multibyte chars. --Stef |
678 |
|
(funcall (if (and (fboundp 'string-to-multibyte) |
679 |
|
(subrp (symbol-function 'string-to-multibyte))) |
680 |
|
'string-to-multibyte |
681 |
'identity) |
'identity) |
682 |
(or string ""))) |
(or string ""))) |
683 |
|
|
1387 |
|
|
1388 |
(provide 'nnimap) |
(provide 'nnimap) |
1389 |
|
|
1390 |
;;; arch-tag: 2b001f20-3ff9-4094-a0ad-46807c1ba70b |
;; arch-tag: 2b001f20-3ff9-4094-a0ad-46807c1ba70b |
1391 |
;;; nnimap.el ends here |
;;; nnimap.el ends here |