From: yamaoka <yamaoka>
Date: Fri, 23 Oct 1998 00:22:17 +0000 (+0000)
Subject: New function `gnus-message-make-user-agent'.
X-Git-Tag: gnus-6_8-199811302358~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bdadc8d81dc582207eb6670eb2456e921cc389cf;p=elisp%2Fgnus.git-

New function `gnus-message-make-user-agent'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index aac7dab..d6e62bf 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -547,6 +547,47 @@ If SILENT, don't prompt the user."
   (interactive)
   (concat gnus-product-name "/" gnus-version-number))
 
+(defun gnus-message-make-user-agent (&optional include-mime-info max-column)
+  "Return user-agent info.
+INCLUDE-MIME-INFO the optional first argument if it is non-nil and the variable
+  `mime-edit-user-agent-value' exists, the return value will include it.
+MAX-COLUMN the optional second argument if it is specified, the return value
+  will be folded up in the proper way."
+  (let ((user-agent (if (and include-mime-info
+			     (boundp 'mime-edit-user-agent-value))
+			(concat (gnus-extended-version)
+				" "
+				mime-edit-user-agent-value)
+		      (gnus-extended-version))))
+    (if max-column
+	(let (boundary)
+	  (unless (natnump max-column) (setq max-column 76))
+	  (with-temp-buffer
+	    (insert "            " user-agent)
+	    (goto-char 13)
+	    (while (re-search-forward "[\n\t ]+" nil t)
+	      (replace-match " "))
+	    (goto-char 13)
+	    (while (re-search-forward "[^ ()/]+\\(/[^ ()/]+\\)? ?" nil t)
+	      (while (eq ?\( (char-after (point)))
+		(forward-list)
+		(skip-chars-forward " "))
+	      (skip-chars-backward " ")
+	      (if (> (current-column) max-column)
+		  (progn
+		    (if (or (not boundary) (eq ?\n (char-after boundary)))
+			(progn
+			  (setq boundary (point))
+			  (unless (eobp)
+			    (delete-char 1)
+			    (insert "\n ")))
+		      (goto-char boundary)
+		      (delete-char 1)
+		      (insert "\n ")))
+		(setq boundary (point))))
+	    (buffer-substring 13 (point-max))))
+      user-agent)))
+
 
 ;;;
 ;;; Gnus Mail Functions