Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
43 43
44 (defgroup message '((user-mail-address custom-variable) 44 (defgroup message '((user-mail-address custom-variable)
45 (user-full-name custom-variable)) 45 (user-full-name custom-variable))
46 "Mail and news message composing." 46 "Mail and news message composing."
47 :link '(custom-manual "(message)Top") 47 :link '(custom-manual "(message)Top")
48 :group 'emacs) 48 :group 'mail
49 :group 'news)
49 50
50 (put 'user-mail-address 'custom-type 'string) 51 (put 'user-mail-address 'custom-type 'string)
51 (put 'user-full-name 'custom-type 'string) 52 (put 'user-full-name 'custom-type 'string)
52 53
53 (defgroup message-various nil 54 (defgroup message-various nil
2232 ;; ID is unique to this newsreader, other newsreaders might 2233 ;; ID is unique to this newsreader, other newsreaders might
2233 ;; otherwise generate the same ID via another algorithm. 2234 ;; otherwise generate the same ID via another algorithm.
2234 ".fsf"))) 2235 ".fsf")))
2235 2236
2236 (defun message-number-base36 (num len) 2237 (defun message-number-base36 (num len)
2237 (if (if (< len 0) (<= num 0) (= len 0)) 2238 (if (if (< len 0)
2239 (<= num 0)
2240 (= len 0))
2238 "" 2241 ""
2239 (concat (message-number-base36 (/ num 36) (1- len)) 2242 (concat (message-number-base36 (/ num 36) (1- len))
2240 (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210" 2243 (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210"
2241 (% num 36)))))) 2244 (% num 36))))))
2242 2245
2787 (let ((message-this-is-mail t)) 2790 (let ((message-this-is-mail t))
2788 (message-pop-to-buffer (message-buffer-name "mail" to)) 2791 (message-pop-to-buffer (message-buffer-name "mail" to))
2789 (message-setup 2792 (message-setup
2790 (nconc 2793 (nconc
2791 `((To . ,(or to "")) (Subject . ,(or subject ""))) 2794 `((To . ,(or to "")) (Subject . ,(or subject "")))
2792 (when other-headers (list other-headers)))))) 2795 (when other-headers other-headers)))))
2793 2796
2794 ;;;###autoload 2797 ;;;###autoload
2795 (defun message-news (&optional newsgroups subject) 2798 (defun message-news (&optional newsgroups subject)
2796 "Start editing a news article to be sent." 2799 "Start editing a news article to be sent."
2797 (interactive) 2800 (interactive)