*** empty log message ***

[gnus] / lisp / article.el

diff --git a/lisp/article.el b/lisp/article.el
index 0950d93..c2869b3 100644 (file)
--- a/lisp/article.el
+++ b/lisp/article.el
@@ -648,7 +648,8 @@ always hide."
   "Remove all blank lines from the beginning of the article."
   (interactive)
   (save-excursion
-    (let (buffer-read-only)
+    (let ((inhibit-point-motion-hooks t)
+         buffer-read-only)
       (goto-char (point-min))
       (when (search-forward "\n\n" nil t)
        (while (and (not (eobp))