Synch to No Gnus 200405170008.

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index b9a464d..760f440 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2351,6 +2351,17 @@ Point is left at the beginning of the narrowed-to region."
             (1+ max)))))
       (message-sort-headers-1))))
 
+(defun message-delete-address ()
+  "Delete the address under point."
+  (interactive)
+  (let ((start (point))
+       (quote nil))
+    (message-narrow-to-field)
+    (while (and (not (eobp))
+               (or (not (eq (setq char (following-char)) ?,))
+                   (not quote)))
+      ())))
+
 \f
 
 ;;;