* mime-edit.el (mime-edit-user-agent-value): Include `xemacs-betaname'.

[elisp/semi.git] / mime-edit.el

diff --git a/mime-edit.el b/mime-edit.el
index 873c5bf..89b4655 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -633,6 +633,12 @@ If it is not specified for a major-mode,
                          (concat "/"
                                  (substring emacs-version 0
                                             (match-beginning 0))
+                                 (if (and (boundp 'xemacs-betaname)
+                                          ;; It does not exist in XEmacs
+                                          ;; versions prior to 20.3.
+                                          xemacs-betaname)
+                                     (concat " " xemacs-betaname)
+                                   "")
                                  " (" xemacs-codename ") ("
                                  system-configuration ")")
                        " (" emacs-version ")"))
@@ -2589,6 +2595,12 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
          "\\):")
   "Regexp for deleted header fields when `mime-edit-again' is called.")
 
+(defsubst eliminate-top-spaces (string)
+  "Eliminate top sequence of space or tab in STRING."
+  (if (string-match "^[ \t]+" string)
+      (substring string (match-end 0))
+    string))
+
 (defun mime-edit-decode-multipart-in-buffer (content-type not-decode-text)
   (let* ((subtype (mime-content-type-subtype content-type))
         (boundary (mime-content-type-parameter content-type "boundary"))