- (if (not verbose)
- ;; Don't use product-string-verbose for short User-Agent field value.
- (concat (product-string-1 'wl-version t) " "
- (wl-extended-emacs-version3 "/" t))
- ;; verbose
- (cond
- ;; SEMI
- ((and (boundp 'mime-edit-user-agent-value) mime-edit-user-agent-value)
- (concat (product-string-verbose 'wl-version) " "
- mime-edit-user-agent-value))
- ;; tm
- ((and (boundp 'mime-editor/version) mime-editor/version)
- (concat (product-string-verbose 'wl-version) " "
- "tm/" mime-editor/version
- (if (and (boundp 'mime-editor/codename)
- mime-editor/codename)
- (concat " (" mime-editor/codename ")"))
- (if (and (boundp 'mime-library-product)
- mime-library-product)
- (concat " " (aref mime-library-product 0)
- "/"
- (mapconcat 'int-to-string
- (aref mime-library-product 1)
- ".")
- " (" (aref mime-library-product 2) ")"))
- (condition-case nil
- (progn
- (require 'apel-ver)
- (concat " " (apel-version)))
- (file-error nil))
- " " (wl-extended-emacs-version3 "/" t)))
- ;; error case
- (t
- (product-string-1 'wl-version nil)))))
+ (cond
+ ;; Don't use `product-string-verbose' for short User-Agent field value.
+ ((not verbose)
+ (concat (product-string-1 'wl-version t) " "
+ (wl-extended-emacs-version3 "/" t)))
+ ;; SEMI (verbose)
+ ((and (boundp 'mime-edit-user-agent-value) mime-edit-user-agent-value)
+ (concat (product-string-verbose 'wl-version) " "
+ mime-edit-user-agent-value))
+ ;; error case
+ (t
+ (product-string-1 'wl-version nil))))