smptpmail.el is extremely badly written, but using `beginning-of-buffer' and `kill-line' is too much. I've had this patch in my queue for a while now. Since I no longer use smtpmail, I'd better send it here before it gets lost: --- smtpmail.el.orig 2004-06-13 13:32:00.000000000 +0200 +++ smtpmail.el 2004-06-13 13:34:09.000000000 +0200 ＠＠ -388,7 +388,7 ＠＠ ;;; mail, send it, etc... (let ((file-msg "")) (insert-file-contents smtpmail-queue-index) - (beginning-of-buffer) + (goto-char (point-min)) (while (not (eobp)) (setq file-msg (buffer-substring (point) (point-at-eol))) ;; XEmacs (load file-msg) ＠＠ -405,7 +405,7 ＠＠ (error "Sending failed; no recipients"))) (delete-file file-msg) (delete-file (concat file-msg ".el")) - (kill-line 1)) + (delete-region (point) (save-excursion (forward-line 1) (point)))) (write-region (point-min) (point-max) smtpmail-queue-index)))) ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer)