(gnus-parse-complex-format): %~ => ~*.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f73f3d1..c0ffced 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-01-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-spec.el (gnus-parse-complex-format): %~ => ~*.
+
        * gnus-agent.el (gnus-agent-fetch-selected-article): Use
        gnus-summary-update-article-line. 
 

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 6153848..3f2ec2f 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -409,7 +409,7 @@ characters when given a pad value."
   ;; them will have the balloon-help text property.
   (let ((case-fold-search nil))
     (if (string-match
-        "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*~"
+        "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*"
         format)
        (gnus-parse-complex-format format spec-alist)
       ;; This is a simple format.
@@ -445,7 +445,7 @@ characters when given a pad value."
       ;; Convert point position commands.
       (goto-char (point-min))
       (let ((case-fold-search nil))
-       (while (re-search-forward "%\\([-0-9]+\\)?~" nil t)
+       (while (re-search-forward "%\\([-0-9]+\\)?\\*" nil t)
          (replace-match "\"(point)\"" t t)
          (setq cursor-spec t)))
       ;; Convert TAB commands.