From f8ca0fa24d6ccacdda5a8a252dc652be315042ee Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Sat, 29 Aug 1998 14:09:15 +0000 Subject: [PATCH] (message-make-user-agent): Include SEMI and FLIM version. --- lisp/message.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lisp/message.el b/lisp/message.el index 7cea25a..b4475e2 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3089,6 +3089,24 @@ give as trustworthy answer as possible." "Return user-agent info." (let ((user-agent (concat + ;; SEMI: '("SEMI" "CODENAME" V1 V2 V3) + (format "%s/%s (%s)" + (nth 0 mime-user-interface-version) + (mapconcat #'number-to-string + (cdr (cdr mime-user-interface-version)) + ".") + (nth 1 mime-user-interface-version)) + ;; FLIM: "FLIM VERSION - \"CODENAME\"[...]" + (if (string-match + "\\`\\([^ ]+\\) \\([^ ]+\\) - \"\\([^\"]+\\)\"\\(.*\\)\\'" + mime-library-version-string) + (format " %s/%s (%s%s)" + (match-string 1 mime-library-version-string) + (match-string 2 mime-library-version-string) + (match-string 3 mime-library-version-string) + (match-string 4 mime-library-version-string)) + " FLIM") + "\n " ;; EMACS/VERSION (if (featurep 'xemacs) ;; XEmacs -- 1.7.10.4