Lines Matching +defs:charset +defs:id
195 `invisible-text', `long-header-lines', `long-lines', `message-id',
984 \[number subject from date id references chars lines xref extra].")
1093 (defcustom message-default-charset
1095 "Default charset used in non-MULE Emacsen.
1096 If nil, you might be asked to input the charset."
1504 (defvar message-posting-charset nil)
1639 (autoload 'gnus-group-name-charset "gnus-group")
1865 ;; No double encoded subject? => bogus charset.
1871 contains an encoded word. The charset `%s' is unknown or invalid.
1873 charset: "
3403 (message-fetch-field "message-id" t)
3452 (message-fetch-field "message-id" t)
3722 (memq (char-charset char)
3753 (memq (char-charset char)
3804 (id (message-make-message-id)) (n 1)
3844 (insert (format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n\n"
3845 id n total))
3849 (insert "Message-ID: " (message-make-message-id) "\n"))
3871 (message-posting-charset
3872 (if (fboundp 'gnus-setup-posting-charset)
3873 (gnus-setup-posting-charset nil)
3874 message-posting-charset))
3921 (let ((mail-parse-charset message-default-charset))
4138 (sha1 (concat (message-unique-id)
4169 ;; BUG: We really need to get the charset for each name in the
4173 (group-field-charset
4174 (gnus-group-name-charset method newsgroups-field))
4175 (followup-field-charset
4176 (gnus-group-name-charset method (or followup-field "")))
4178 (append (when group-field-charset
4179 (list (cons "Newsgroups" group-field-charset)))
4180 (when followup-field-charset
4181 (list (cons "Followup-To" followup-field-charset)))
4191 (message-posting-charset
4192 (gnus-setup-posting-charset newsgroups-field))
4204 ;; gnus-group-name-charset-group-alist. -- Pa 2001-10-07.
4205 (when (and group-field-charset
4233 (let ((mail-parse-charset message-default-charset))
4385 (message-check 'message-id
4387 (message-id (message-fetch-field "message-id" t)))
4388 (or (not message-id)
4390 (and (string-match "@" message-id)
4392 (string-match "@[^.]*\\." message-id)
4394 (not (string-match "\\.>" message-id)))
4397 message-id)))))
4425 (gnus-group-name-charset method n)))
4692 (let ((mail-parse-charset message-default-charset)
4786 (defun message-make-message-id ()
4788 (concat "<" (message-unique-id)
4806 (defvar message-unique-id-char nil)
4812 (defun message-unique-id ()
4815 (setq message-unique-id-char
4816 (% (1+ (or message-unique-id-char (logand (random t) (1- (lsh 1 20)))))
4831 (lsh (% message-unique-id-char 25) 16)) 4)
4833 (lsh (/ message-unique-id-char 25) 16)) 4)
4880 (let ((message-id (mail-header-message-id message-reply-headers))
4883 (if (or references message-id)
4885 (or message-id ""))
4893 (msg-id (mail-header-message-id message-reply-headers)))
4897 msg-id (if msg-id " (")
4921 "\"" (if msg-id ")")))))))
5187 (Message-ID (message-make-message-id))
6044 references message-id follow-to
6061 (setq message-id (message-fetch-field "message-id" t)
6072 (setq message-id (match-string 0 gnus-warning)))
6084 (vector 0 subject from date message-id references 0 0 ""))
6105 references message-id follow-to
6122 message-id (message-fetch-field "message-id" t)
6132 (setq message-id (match-string 0 gnus-warning)))
6145 (vector 0 subject from date message-id references 0 0 ""))
6261 (let (from newsgroups message-id distribution buf)
6268 message-id (message-fetch-field "message-id" t)
6281 "Subject: cmsg cancel " message-id "\n"
6282 "Control: cancel " message-id "\n"
7115 (let ((mail-parse-charset (or mail-parse-charset
7116 message-default-charset))
7156 (insert "Content-Type: text/plain; charset=us-ascii\n"))))))