Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-pop.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 4103f0995bd7
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
233 ;; for the Content-Length stuff counting from eob is 233 ;; for the Content-Length stuff counting from eob is
234 ;; the same thing in this case. 234 ;; the same thing in this case.
235 (vm-convert-folder-type-headers nil vm-folder-type) 235 (vm-convert-folder-type-headers nil vm-folder-type)
236 (goto-char end) 236 (goto-char end)
237 (insert-before-markers (vm-trailing-message-separator)))) 237 (insert-before-markers (vm-trailing-message-separator))))
238 (write-region start end crash t 0) 238 ;; Set file type to binary for DOS/Windows. I don't know if
239 ;; this is correct to do or not; it depends on whether the
240 ;; the CRLF or the LF newline convention is used on the inbox
241 ;; associated with this crashbox. This setting assumes the LF
242 ;; newline convention is used.
243 (let ((buffer-file-type t))
244 (write-region start end crash t 0))
239 (delete-region start end) 245 (delete-region start end)
240 t )) 246 t ))
241 247
242 (defun vm-pop-cleanup-region (start end) 248 (defun vm-pop-cleanup-region (start end)
243 (setq end (vm-marker end)) 249 (setq end (vm-marker end))
260 (setq buffer (generate-new-buffer "*vm-work*")) 266 (setq buffer (generate-new-buffer "*vm-work*"))
261 (set-buffer buffer) 267 (set-buffer buffer)
262 (insert string) 268 (insert string)
263 (call-process-region (point-min) (point-max) 269 (call-process-region (point-min) (point-max)
264 "/bin/sh" t buffer nil 270 "/bin/sh" t buffer nil
265 "-c" vm-pop-md5-program) 271 shell-command-switch vm-pop-md5-program)
266 ;; MD5 digest is 32 chars long 272 ;; MD5 digest is 32 chars long
267 ;; mddriver adds a newline to make neaten output for tty 273 ;; mddriver adds a newline to make neaten output for tty
268 ;; viewing, make sure we leave it behind. 274 ;; viewing, make sure we leave it behind.
269 (vm-buffer-substring-no-properties (point-min) (+ (point-min) 32))) 275 (vm-buffer-substring-no-properties (point-min) (+ (point-min) 32)))
270 (and buffer (kill-buffer buffer))))) 276 (and buffer (kill-buffer buffer)))))