[gnus git] branch master updated: m0-5-66-g436a2a3 =1= message.el: Make header fill function work properly

       via  436a2a323a1172fb33d3336417009cadcd90661b (commit)
      from  14b8787ecb5038a1bdfdd060a32afbabd1582918 (commit)


- Log -----------------------------------------------------------------
commit 436a2a323a1172fb33d3336417009cadcd90661b
Author: Katsumi Yamaoka <[email protected]>
Date:   Fri Jul 27 08:00:34 2012 +0000

    message.el: Make header fill function work properly

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ae5c61..0c56ffc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-07-27  Katsumi Yamaoka  <[email protected]>
+
+	* message.el (message-kill-address): Don't kill last newline.
+	(message-skip-to-next-address): Don't move to the next header.
+	(message-fill-field-address): Work properly.
+
 2012-07-25  Julien Danjou  <[email protected]>
 
 	* gnus-art.el (gnus-kill-sticky-article-buffers): Reintroduce.
diff --git a/lisp/message.el b/lisp/message.el
index ff84dc0..ce4c718 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2647,7 +2647,7 @@ Point is left at the beginning of the narrowed-to region."
   (interactive)
   (let ((start (point)))
     (message-skip-to-next-address)
-    (kill-region start (point))))
+    (kill-region start (if (bolp) (1- (point)) (point)))))
 
 
 (autoload 'Info-goto-node "info")
@@ -6143,7 +6143,7 @@ Headers already prepared in the buffer are not modified."
     (while (and (not (= (point) end))
 		(or (not (eq char ?,))
 		    quoted))
-      (skip-chars-forward "^,\"" (point-max))
+      (skip-chars-forward "^,\"" end)
       (when (eq (setq char (following-char)) ?\")
 	(setq quoted (not quoted)))
       (unless (= (point) end)
@@ -6180,17 +6180,22 @@ If the current line has `message-yank-prefix', insert it on the new line."
       (point-max))))
 
 (defun message-fill-field-address ()
-  (while (not (eobp))
+  (let (end last)
+    (while (not end)
     (message-skip-to-next-address)
-    (let (last)
-      (if (and (> (current-column) 78)
+      (cond ((bolp)
+	     (end-of-line 0)
+	     (setq end 1))
+	    ((eobp)
+	     (setq end 0)))
+      (when (and (> (current-column) 78)
 	       last)
-	  (progn
 	    (save-excursion
 	      (goto-char last)
-	      (insert "\n\t"))
-	    (setq last (1+ (point))))
-	(setq last (1+ (point)))))))
+	  (delete-char (- (skip-chars-backward " \t")))
+	  (insert "\n\t")))
+      (setq last (point)))
+    (forward-line end)))
 
 (defun message-fill-field-general ()
   (let ((begin (point))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    6 ++++++
 lisp/message.el |   31 ++++++++++++++++++-------------
 2 files changed, 24 insertions(+), 13 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project