X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ac1e89ebaca61c797fcb77a40ad67cd4cef29eeb..a731c2f163071ed6efe7d93fa9585dd66ddf2fbb:/lisp/net/newst-treeview.el

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index eca2a9c3ec..0c2df8897d 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -940,7 +940,7 @@ Optional arguments CHANGED-WIDGET and EVENT are ignored."
   "Return propertized copy of string TAG.
 Optional argument NUM-NEW is used for choosing face, other
 arguments NT-ID, FEED, and VFEED are added as properties."
-  ;;(message "newsticker--treeview-propertize-tag '%s' %s" feed nt-id)
+  ;;(message "newsticker--treeview-propertize-tag `%s' %s" feed nt-id)
   (let ((face 'newsticker-treeview-face)
         (map (make-sparse-keymap)))
     (if (and num-new (> num-new 0))
@@ -1268,7 +1268,7 @@ Note: does not update the layout."
                          (expand-file-name (concat newsticker-dir "/groups"))))
                    (file-exists-p newsticker-groups-filename)
                    (y-or-n-p
-                    (format
+                    (format-message
                      (concat "Obsolete variable `newsticker-groups-filename' "
                              "points to existing file \"%s\".\n"
                              "Read it? ")
@@ -1279,7 +1279,7 @@ Note: does not update the layout."
                    (find-file-noselect filename))))
     (and newsticker-groups-filename
          (file-exists-p newsticker-groups-filename)
-	 (y-or-n-p (format
+	 (y-or-n-p (format-message
                     (concat "Delete the file \"%s\",\nto which the obsolete "
                             "variable `newsticker-groups-filename' points ? ")
                     newsticker-groups-filename))