Commits

Anonymous committed dd3d8b5

* smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny
patch from Hrvoje Niksic <hniksic@xemacs.org>.

  • Participants
  • Parent commits 6ac2291

Comments (0)

Files changed (2)

+2005-10-26  Simon Josefsson  <jas@extundo.com>
+
+	* smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny
+	patch from Hrvoje Niksic <hniksic@xemacs.org>.
+
 2005-09-26  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.74 released.
 ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
 
-;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004
+;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
     ;;; 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)
 	    (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)