X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-util.el;h=88b3996a6bcb416439b83de2bd44022056303296;hb=46be4261561f054aad551e8524f6a786adf19122;hp=532429b2d374f38192e33b7972d6c43f2dfc0d4f;hpb=5e4e86bc38bb7a48ada0261a14c6388ad67e2f96;p=gnus

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 532429b2d..88b3996a6 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -291,7 +291,9 @@
 
 (defun gnus-dd-mmm (messy-date)
   "Return a string like DD-MMM from a big messy string."
-  (format-time-string "%d-%b" (safe-date-to-time messy-date)))
+  (condition-case ()
+      (format-time-string "%d-%b" (safe-date-to-time messy-date))
+    (error "  -   ")))
 
 (defmacro gnus-date-get-time (date)
   "Convert DATE string to Emacs time.
@@ -504,6 +506,7 @@ If N, return the Nth ancestor instead."
 	      first 't2
 	      last 't1))
        ((gnus-functionp function)
+	;; Do nothing.
 	)
        (t
 	(error "Invalid sort spec: %s" function))))
@@ -946,13 +949,17 @@ ARG is passed to the first function."
        (when (and sym
 		  (boundp sym)
 		  (symbol-value sym))
-	 (insert (format "%s %d %d y\n"
+	 (insert (format "%S %d %d y\n"
 			 (if full-names
-			     (symbol-name sym)
-			   (gnus-group-real-name (symbol-name sym)))
-			 (cdr (symbol-value sym))
+			     sym
+			   (intern (gnus-group-real-name (symbol-name sym))))
+			 (or (cdr (symbol-value sym))
+			     (car (symbol-value sym)))
 			 (car (symbol-value sym))))))
-     hashtb)))
+     hashtb)
+    (goto-char (point-max))
+    (while (search-backward "\\." nil t)
+      (delete-char 1))))
 
 (provide 'gnus-util)