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

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

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

revision 1.13 by zsh, Thu Jan 16 01:19:02 2003 UTC revision 1.14 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 95  message, a huge time saver for large mai Line 95  message, a huge time saver for large mai
95  (defvoo nnfolder-scantime-alist nil)  (defvoo nnfolder-scantime-alist nil)
96  (defvoo nnfolder-active-timestamp nil)  (defvoo nnfolder-active-timestamp nil)
97  (defvoo nnfolder-active-file-coding-system mm-text-coding-system)  (defvoo nnfolder-active-file-coding-system mm-text-coding-system)
98  (defvoo nnfolder-active-file-coding-system-for-write  (defvoo nnfolder-active-file-coding-system-for-write
99      nnmail-active-file-coding-system)      nnmail-active-file-coding-system)
100  (defvoo nnfolder-file-coding-system mm-text-coding-system)  (defvoo nnfolder-file-coding-system mm-text-coding-system)
101  (defvoo nnfolder-file-coding-system-for-write nnheader-file-coding-system  (defvoo nnfolder-file-coding-system-for-write nnheader-file-coding-system
# Line 189  If nil, `nnfolder-file-coding-system' is Line 189  If nil, `nnfolder-file-coding-system' is
189                (cons nnfolder-current-group article)                (cons nnfolder-current-group article)
190              (goto-char (point-min))              (goto-char (point-min))
191              (cons nnfolder-current-group              (cons nnfolder-current-group
192                    (if (search-forward (concat "\n" nnfolder-article-marker)                    (if (search-forward (concat "\n" nnfolder-article-marker)
193                                        nil t)                                        nil t)
194                        (string-to-int                        (string-to-int
195                         (buffer-substring                         (buffer-substring
# Line 313  If nil, `nnfolder-file-coding-system' is Line 313  If nil, `nnfolder-file-coding-system' is
313        (let ((marker (concat "\n" nnfolder-article-marker))        (let ((marker (concat "\n" nnfolder-article-marker))
314              (number "[0-9]+")              (number "[0-9]+")
315              numbers)              numbers)
316          
317          (while (and (search-forward marker nil t)          (while (and (search-forward marker nil t)
318                      (re-search-forward number nil t))                      (re-search-forward number nil t))
319            (let ((newnum (string-to-number (match-string 0))))            (let ((newnum (string-to-number (match-string 0))))
# Line 352  If nil, `nnfolder-file-coding-system' is Line 352  If nil, `nnfolder-file-coding-system' is
352                         force nnfolder-inhibit-expiry))                         force nnfolder-inhibit-expiry))
353              (unless (eq nnmail-expiry-target 'delete)              (unless (eq nnmail-expiry-target 'delete)
354                (with-temp-buffer                (with-temp-buffer
355                  (nnfolder-request-article (car maybe-expirable)                  (nnfolder-request-article (car maybe-expirable)
356                                            newsgroup server (current-buffer))                                            newsgroup server (current-buffer))
357                  (let ((nnml-current-directory nil))                  (let ((nnml-current-directory nil))
358                    (nnmail-expiry-target-group                    (nnmail-expiry-target-group
# Line 384  If nil, `nnfolder-file-coding-system' is Line 384  If nil, `nnfolder-file-coding-system' is
384           (goto-char (point-min))           (goto-char (point-min))
385           (while (re-search-forward           (while (re-search-forward
386                   (concat "^" nnfolder-article-marker)                   (concat "^" nnfolder-article-marker)
387                   (save-excursion (and (search-forward "\n\n" nil t) (point)))                   (save-excursion (and (search-forward "\n\n" nil t) (point)))
388                   t)                   t)
389             (delete-region (progn (beginning-of-line) (point))             (delete-region (progn (beginning-of-line) (point))
390                            (progn (forward-line 1) (point))))                            (progn (forward-line 1) (point))))
# Line 629  deleted.  Point is left where the delete Line 629  deleted.  Point is left where the delete
629                ;; See whether we need to create the new file.                ;; See whether we need to create the new file.
630                (unless (file-exists-p file)                (unless (file-exists-p file)
631                  (gnus-make-directory (file-name-directory file))                  (gnus-make-directory (file-name-directory file))
632                  (let ((nnmail-file-coding-system                  (let ((nnmail-file-coding-system
633                         (or nnfolder-file-coding-system-for-write                         (or nnfolder-file-coding-system-for-write
634                             nnfolder-file-coding-system-for-write)))                             nnfolder-file-coding-system-for-write)))
635                    (nnmail-write-region (point-min) (point-min)                    (nnmail-write-region (point-min) (point-min)
# Line 746  deleted.  Point is left where the delete Line 746  deleted.  Point is left where the delete
746  (defun nnfolder-read-folder (group)  (defun nnfolder-read-folder (group)
747    (let* ((file (nnfolder-group-pathname group))    (let* ((file (nnfolder-group-pathname group))
748           (buffer (set-buffer           (buffer (set-buffer
749                    (let ((nnheader-file-coding-system                    (let ((nnheader-file-coding-system
750                           nnfolder-file-coding-system))                           nnfolder-file-coding-system))
751                      (nnheader-find-file-noselect file)))))                      (nnheader-find-file-noselect file)))))
752      (mm-enable-multibyte) ;; Use multibyte buffer for future copying.      (mm-enable-multibyte) ;; Use multibyte buffer for future copying.
# Line 886  This command does not work if you use sh Line 886  This command does not work if you use sh
886    (when (buffer-modified-p)    (when (buffer-modified-p)
887      (run-hooks 'nnfolder-save-buffer-hook)      (run-hooks 'nnfolder-save-buffer-hook)
888      (gnus-make-directory (file-name-directory (buffer-file-name)))      (gnus-make-directory (file-name-directory (buffer-file-name)))
889      (let ((coding-system-for-write      (let ((coding-system-for-write
890             (or nnfolder-file-coding-system-for-write             (or nnfolder-file-coding-system-for-write
891                 nnfolder-file-coding-system)))                 nnfolder-file-coding-system)))
892        (save-buffer))))        (save-buffer))))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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