Mercurial > hg > xemacs-beta

comparison lisp/packages/mime-compose.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
592 (insert "Content-Transfer-Encoding: quoted-printable\n")) 592 (insert "Content-Transfer-Encoding: quoted-printable\n"))
593 (mime-maybe-highlight-region 593 (mime-maybe-highlight-region
594 (save-excursion (re-search-backward 594 (save-excursion (re-search-backward
595 (concat "--" (mime-primary-boundary))) (point)) 595 (concat "--" (mime-primary-boundary))) (point))
596 (- (point) 1)) 596 (- (point) 1))
597 (insert "\n")
597 (let ((start (point)) end (seldisp selective-display)) 598 (let ((start (point)) end (seldisp selective-display))
598 (next-line 1) 599 (next-line 1)
599 (save-excursion 600 (save-excursion
600 (next-line -1) 601 (next-line -1)
601 (insert-file filename)) 602 (insert-file filename))