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 |
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 |
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)))) |
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 |
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)))) |
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) |
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. |
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)))) |