Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-digest.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 360340f9fd5f
children b980b6286996
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
409 (unwind-protect 409 (unwind-protect
410 (vm-munge-message-separators 410 (vm-munge-message-separators
411 folder-type 411 folder-type
412 after-prev-sep 412 after-prev-sep
413 (match-beginning 0)) 413 (match-beginning 0))
414 (store-match-data md))) 414 (store-match-data md)))))
415 ;; eat preceding newlines
416 (while (= (preceding-char) ?\n)
417 (delete-char -1))
418 ;; put one back
419 (insert ?\n)))
420 ;; there should be at least one valid header at 415 ;; there should be at least one valid header at
421 ;; the beginning of an encapsulated message. If 416 ;; the beginning of an encapsulated message. If
422 ;; there isn't a valid header, then assume that 417 ;; there isn't a valid header, then assume that
423 ;; the digest was packed improperly and that this 418 ;; the digest was packed improperly and that this
424 ;; isn't a real boundary. 419 ;; isn't a real boundary.
430 (vm-digest-get-header-contents "From")) 425 (vm-digest-get-header-contents "From"))
431 (not (re-search-forward separator-regexp 426 (not (re-search-forward separator-regexp
432 nil t)))))) 427 nil t))))))
433 (setq prev-sep (point) 428 (setq prev-sep (point)
434 after-prev-sep (point)) 429 after-prev-sep (point))
430 ;; eat preceding newlines
431 (while (= (preceding-char) ?\n)
432 (delete-char -1))
433 ;; put one back
434 (insert ?\n)
435 ;; delete the digest separator
435 ;; insert a trailing message separator 436 ;; insert a trailing message separator
436 ;; delete the digest separator
437 ;; insert the leading separator 437 ;; insert the leading separator
438 (if prev-sep 438 (if prev-sep
439 (progn 439 (progn
440 (delete-region (match-beginning 0) (match-end 0)) 440 (delete-region (match-beginning 0) (point))
441 (insert (vm-trailing-message-separator folder-type)))) 441 (insert (vm-trailing-message-separator folder-type))))
442 (setq prev-sep (point)) 442 (setq prev-sep (point))
443 (insert (vm-leading-message-separator folder-type)) 443 (insert (vm-leading-message-separator folder-type))
444 (setq after-prev-sep (point)) 444 (setq after-prev-sep (point))
445 ;; eat trailing newlines 445 ;; eat trailing newlines