--- a/lisp/gnus/gnus-art.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/gnus-art.el	Mon Aug 13 08:49:43 2007 +0200
@@ -1162,8 +1162,8 @@
 	    ;; Delete any old Date headers.
 	    (if (re-search-forward date-regexp nil t)
 		(progn
-		  (setq bface (get-text-property (point-at-bol) 'face)
-			eface (get-text-property (1- (point-at-eol))
+		  (setq bface (get-text-property (gnus-point-at-bol) 'face)
+			eface (get-text-property (1- (gnus-point-at-eol))
 						 'face))
 		  (message-remove-header date-regexp t)
 		  (beginning-of-line))
@@ -1201,11 +1201,13 @@
     (concat "Date: " date "\n"))
    ;; Let the user define the format.
    ((eq type 'user)
-    (format-time-string gnus-article-time-format
-			(ignore-errors
-			  (gnus-encode-date
-			   (timezone-make-date-arpa-standard
-			    date nil "UT")))))
+    (concat 
+     (format-time-string gnus-article-time-format
+			 (ignore-errors
+			   (gnus-encode-date
+			    (timezone-make-date-arpa-standard
+			     date nil "UT"))))
+     "\n"))
    ;; Do an X-Sent lapsed format.
    ((eq type 'lapsed)
     ;; If the date is seriously mangled, the timezone functions are
@@ -1704,9 +1706,10 @@
        ["Remove carriage return" gnus-article-remove-cr t]
        ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]))
 
-    (when (boundp 'gnus-summary-article-menu)
-      (define-key gnus-article-mode-map [menu-bar commands]
-	(cons "Commands" gnus-summary-article-menu)))
+    (when nil
+      (when (boundp 'gnus-summary-article-menu)
+	(define-key gnus-article-mode-map [menu-bar commands]
+	  (cons "Commands" gnus-summary-article-menu))))
 
     (when (boundp 'gnus-summary-post-menu)
       (define-key gnus-article-mode-map [menu-bar post]