Mercurial > emacs

comparison lisp/gnus/nnfolder.el @ 38382:36083635b0c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nnfolder-read-folder): Force to use a multibyte buffer.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 12 Jul 2001 10:14:10 +0000
parents 99d97831a467
children 0f4506820432
comparison
equal deleted inserted replaced
38381:377e83704c76 38382:36083635b0c6
1 ;;; nnfolder.el --- mail folder access for Gnus 1 ;;; nnfolder.el --- mail folder access for Gnus
2 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 2 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation, Inc.
4 4
5 ;; Author: Scott Byer <byer@mv.us.adobe.com> 5 ;; Author: Scott Byer <byer@mv.us.adobe.com>
6 ;; Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
738 (let* ((file (nnfolder-group-pathname group)) 738 (let* ((file (nnfolder-group-pathname group))
739 (buffer (set-buffer 739 (buffer (set-buffer
740 (let ((nnheader-file-coding-system 740 (let ((nnheader-file-coding-system
741 nnfolder-file-coding-system)) 741 nnfolder-file-coding-system))
742 (nnheader-find-file-noselect file))))) 742 (nnheader-find-file-noselect file)))))
743 (mm-enable-multibyte) ;; Use multibyte buffer for future copying.
743 (if (equal (cadr (assoc group nnfolder-scantime-alist)) 744 (if (equal (cadr (assoc group nnfolder-scantime-alist))
744 (nth 5 (file-attributes file))) 745 (nth 5 (file-attributes file)))
745 ;; This looks up-to-date, so we don't do any scanning. 746 ;; This looks up-to-date, so we don't do any scanning.
746 (if (file-exists-p file) 747 (if (file-exists-p file)
747 buffer 748 buffer