Re: patches (Re: auto-fill in body after "^[A-Za-z]: ")

[Oliver Scholz <oscholz@my.gnus.org>]

[-- Attachment #1: Type: text/plain, Size: 333 bytes --]

* "Kai" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

> Oliver Scholz <oscholz@my.gnus.org> writes:
>> Should I make new diffs without the read-only text property then?

> Way cool.  Thanks a lot.  That way, the diffs might be < 10 lines,
> which means we don't need paperwork from you.
[...]

O.k. here they are.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.diff --]
[-- Type: text/x-patch, Size: 622 bytes --]

--- message.el	Fri Oct 12 16:39:31 2001
+++ /home/egoge/bin/emacs-lisp/message.el	Tue Oct 16 01:51:57 2001
@@ -3943,7 +3943,6 @@
   (when message-default-headers
     (insert message-default-headers)
     (or (bolp) (insert ?\n)))
-  (put-text-property (point-min) (point) 'field 'header)
   (put-text-property
    (point)
    (progn
@@ -3979,6 +3978,9 @@
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
   (run-hooks 'message-setup-hook)
+  (save-restriction
+    (message-narrow-to-headers)
+    (put-text-property (point-min) (point-max) 'field 'header))
   (message-position-point)
   (undo-boundary))
 

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: gnus-draft.diff --]
[-- Type: text/x-patch, Size: 461 bytes --]

--- gnus-draft.el	Sun Sep 23 12:37:11 2001
+++ /home/egoge/bin/emacs-lisp/gnus-draft.el	Tue Oct 16 01:52:06 2001
@@ -102,7 +102,8 @@
     (save-excursion
       (save-restriction
 	(message-narrow-to-headers)
-	(message-remove-header "date")))
+	(message-remove-header "date")
+	(put-text-property (point-min) (point-max) 'field 'header)))
     (save-buffer)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) group t))

[-- Attachment #4: Type: text/plain, Size: 58 bytes --]



    'oliver

-- 
25 Vendémiaire an 210 de la Révolution