X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/3d889773617a882fbee5992960cfe18866cddc34..84c4cc589ddd5fcd5bf5ca5256727255c4819043:/lisp/gnus/gmm-utils.el

diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 785a286c91..7aa52794e4 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -256,37 +256,8 @@ If mode is nil, use `major-mode' of the current buffer."
 		 (string-match "^\\(.+\\)-mode$" mode)
 		 (match-string 1 mode))))))
 
-(defun gmm-format-time-string (format-string &optional time tz)
-  "Use FORMAT-STRING to format the time TIME, or now if omitted.
-The optional TZ specifies the time zone in a number of seconds; any
-other non-nil value will be treated as 0.  Note that both the format
-specifiers `%Z' and `%z' will be replaced with a numeric form. "
-;; FIXME: is there a smart way to replace %Z with a time zone name?
-  (if (and (numberp tz) (not (zerop tz)))
-      (let ((st 0)
-	    (case-fold-search t)
-	    ls nd rest)
-	(setq time (if time
-		       (copy-sequence time)
-		     (current-time)))
-	(if (>= (setq ls (- (cadr time) (car (current-time-zone)) (- tz))) 0)
-	    (setcar (cdr time) ls)
-	  (setcar (cdr time) (+ ls 65536))
-	  (setcar time (1- (car time))))
-	(setq tz (format "%s%02d%02d"
-			 (if (>= tz 0) "+" "-")
-			 (/ (abs tz) 3600)
-			 (/ (% (abs tz) 3600) 60)))
-	(while (string-match "%+z" format-string st)
-	  (if (zerop (% (- (setq nd (match-end 0)) (match-beginning 0)) 2))
-	      (progn
-		(push (substring format-string st (- nd 2)) rest)
-		(push tz rest))
-	    (push (substring format-string st nd) rest))
-	  (setq st nd))
-	(push (substring format-string st) rest)
-	(format-time-string (apply 'concat (nreverse rest)) time))
-    (format-time-string format-string time tz)))
+(define-obsolete-function-alias 'gmm-format-time-string 'format-time-string
+  "25.2")
 
 (provide 'gmm-utils)