Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-folder.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents cca96a509cfe
children 585fb297b004
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
506 (set-buffer b) 506 (set-buffer b)
507 (setq temp-buffer (generate-new-buffer "*vm-work*")) 507 (setq temp-buffer (generate-new-buffer "*vm-work*"))
508 (set-buffer temp-buffer) 508 (set-buffer temp-buffer)
509 (if (file-readable-p file) 509 (if (file-readable-p file)
510 (condition-case nil 510 (condition-case nil
511 (let ((coding-system-for-read 'binary)) 511 (let ((overriding-file-coding-system 'binary))
512 (insert-file-contents file nil 0 4096)) 512 (insert-file-contents file nil 0 4096))
513 (wrong-number-of-arguments 513 (wrong-number-of-arguments
514 (call-process "sed" file temp-buffer nil 514 (call-process "sed" file temp-buffer nil
515 "-n" "1,/^$/p"))))))) 515 "-n" "1,/^$/p")))))))
516 (save-excursion 516 (save-excursion
2616 ;; crash box could contain a letter bomb... 2616 ;; crash box could contain a letter bomb...
2617 ;; force user notification of file variables for v18 Emacses 2617 ;; force user notification of file variables for v18 Emacses
2618 ;; enable-local-variables == nil disables them for newer Emacses 2618 ;; enable-local-variables == nil disables them for newer Emacses
2619 (let ((inhibit-local-variables t) 2619 (let ((inhibit-local-variables t)
2620 (enable-local-variables nil) 2620 (enable-local-variables nil)
2621 (coding-system-for-read 'no-conversion)) 2621 (overriding-file-coding-system 'no-conversion))
2622 (find-file-noselect crash-box))) 2622 (find-file-noselect crash-box)))
2623 (save-excursion 2623 (save-excursion
2624 (set-buffer crash-buf) 2624 (set-buffer crash-buf)
2625 (setq crash-folder-type (vm-get-folder-type)) 2625 (setq crash-folder-type (vm-get-folder-type))
2626 (if (and crash-folder-type vm-check-folder-types) 2626 (if (and crash-folder-type vm-check-folder-types)
2947 folder)) 2947 folder))
2948 (save-excursion 2948 (save-excursion
2949 (vm-save-restriction 2949 (vm-save-restriction
2950 (widen) 2950 (widen)
2951 (goto-char (point-max)) 2951 (goto-char (point-max))
2952 (let ((coding-system-for-read 'binary)) 2952 (let ((overriding-file-coding-system 'binary))
2953 (insert-file-contents folder)))) 2953 (insert-file-contents folder))))
2954 (setq mcount (length vm-message-list)) 2954 (setq mcount (length vm-message-list))
2955 (if (vm-assimilate-new-messages) 2955 (if (vm-assimilate-new-messages)
2956 (progn 2956 (progn
2957 ;; say this NOW, before the non-previewers read 2957 ;; say this NOW, before the non-previewers read