CVS update by simon packages/xemacs-packages/mail-lib ...
User: simon
Date: 05/10/26 09:53:21
Modified: packages/xemacs-packages/mail-lib smtpmail.el ChangeLog
Log:
* smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny
patch from Hrvoje Niksic <hniksic(a)xemacs.org>.
Revision Changes Path
1.23 +3 -3 XEmacs/packages/xemacs-packages/mail-lib/smtpmail.el
Index: smtpmail.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/smtpmail.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- smtpmail.el 2004/04/09 13:36:14 1.22
+++ smtpmail.el 2005/10/26 07:53:20 1.23
＠＠ -1,6 +1,6 ＠＠
;;; 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(a)rbc.ncl.omron.co.jp>
＠＠ -391,7 +391,7 ＠＠ This is relative to `smtpmail-queue-dir'
;;; 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)
＠＠ -408,7 +408,7 ＠＠ This is relative to `smtpmail-queue-dir'
(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)
1.162 +5 -0 XEmacs/packages/xemacs-packages/mail-lib/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/ChangeLog,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -p -r1.161 -r1.162
--- ChangeLog 2005/09/26 06:16:32 1.161
+++ ChangeLog 2005/10/26 07:53:21 1.162
＠＠ -1,3 +1,8 ＠＠
+2005-10-26 Simon Josefsson <jas(a)extundo.com>
+
+ * smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny
+ patch from Hrvoje Niksic <hniksic(a)xemacs.org>.
+
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.74 released.