:group 'gnus-extract
:type '(repeat string))
-(defcustom binhex-use-external
+(defcustom binhex-use-external
(executable-find binhex-decoder-program)
"*Use external binhex program."
:group 'gnus-extract
(interactive "r")
(let ((cbuf (current-buffer)) firstline work-buffer status
(file-name (expand-file-name
- (concat (binhex-decode-region-internal start end t)
+ (concat (binhex-decode-region-internal start end t)
".data")
binhex-temporary-file-directory)))
(save-excursion
(defun binhex-decode-region (start end)
"Binhex decode region between START and END."
(interactive "r")
- (if binhex-use-external
+ (if binhex-use-external
(binhex-decode-region-external start end)
(binhex-decode-region-internal start end)))
(defun gnus-article-treat-body-boundary ()
"Place a boundary line at the end of the headers."
(interactive)
- (when (and gnus-body-boundary-delimiter
+ (when (and gnus-body-boundary-delimiter
(> (length gnus-body-boundary-delimiter) 0))
(gnus-with-article-headers
(goto-char (point-max))
;;; gnus-bcklg.el --- backlog functions for Gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
(let ((cached (sort (copy-sequence gnus-newsgroup-cached) '>))
(gnus-verbose (max 6 gnus-verbose)))
(if cached
- (progn
- (gnus-summary-limit cached)
- (gnus-summary-position-point))
- (gnus-message 3 "No cached articles for this group"))))
+ (progn
+ (gnus-summary-limit cached)
+ (gnus-summary-position-point))
+ (gnus-message 3 "No cached articles for this group"))))
;;; Internal functions.
unread and ticked articles.
`Other'
- Display the articles that satisfy the S-expression. The S-expression
+ Display the articles that satisfy the S-expression. The S-expression
should be in an array form.")
(comment (string :tag "Comment") "\
(o1 (nndiary-next-occurence s1 now))
(o2 (nndiary-next-occurence s2 now)))
(if (and (= (car o1) (car o2)) (= (cadr o1) (cadr o2)))
- (< (mail-header-number h1) (mail-header-number h2))
+ (< (mail-header-number h1) (mail-header-number h2))
(time-less-p o1 o2))))
(save-restriction
(article-narrow-to-head)
(gnus-article-goto-header "from")
- (when (bobp)
+ (when (bobp)
(insert "From: \n")
(forward-char -2))
(gnus-add-image
of these specs, you must probably re-start Gnus to see them go into
effect.
-General format specifiers can also be used.
+General format specifiers can also be used.
See (gnus)Formatting Variables."
:link '(custom-manual "(gnus)Formatting Variables")
:group 'gnus-group-visual
`(-1 nil (,group
,gnus-level-default-subscribed nil nil ,method
,(cons
- (if quit-config
+ (if quit-config
(cons 'quit-config quit-config)
(cons 'quit-config
(cons gnus-summary-buffer
(let ((group-buf (get-buffer gnus-group-buffer)))
(mapcar (lambda (buf)
(unless (or (member buf (list group-buf gnus-dribble-buffer))
- (progn
+ (progn
(save-excursion
- (set-buffer buf)
- (eq major-mode 'message-mode))))
+ (set-buffer buf)
+ (eq major-mode 'message-mode))))
(gnus-kill-buffer buf)))
(gnus-buffers))
(gnus-kill-gnus-frames)
(mark gnus-read-mark)
active n)
(if (get-buffer buffer)
- (with-current-buffer buffer
+ (with-current-buffer buffer
(setq active gnus-newsgroup-active)
(gnus-activate-group group)
(when gnus-newsgroup-prepared
of names)."
:group 'gnus-message
:type '(choice (string :tag "Group")
- (function)))
+ (function)))
(defcustom gnus-mailing-list-groups nil
"*Regexp matching groups that are really mailing lists.
(defvar gnus-inews-mark-gcc-as-read nil
"Obsolete variable. Use `gnus-gcc-mark-as-read' instead.")
-(make-obsolete-variable 'gnus-inews-mark-gcc-as-read
+(make-obsolete-variable 'gnus-inews-mark-gcc-as-read
'gnus-gcc-mark-as-read)
(defcustom gnus-gcc-externalize-attachments nil
(gnus-message 1 "Couldn't store article in group %s: %s"
group (gnus-status-message method))
(sit-for 2))
- (when (and group-art
+ (when (and group-art
(or gnus-gcc-mark-as-read
gnus-inews-mark-gcc-as-read))
(gnus-group-mark-article-read group (cdr group-art)))
gnus-picon-user-directories)))
(setcar spec (cons (gnus-picon-create-glyph file)
(car spec))))
-
+
(dotimes (i (1- (length spec)))
(when (setq file (gnus-picon-find-face
(concat "unknown@"
(nth (1+ i) spec)))))
(setq spec (nreverse spec))
(push (cons address spec) gnus-picon-cache))
-
+
(gnus-article-goto-header header)
(mail-header-narrow-to-field)
(when (search-forward address nil t)
(let* ((newsrc (cdr gnus-newsrc-alist))
script)
(dolist (info newsrc)
- (when (or (not method)
+ (when (or (not method)
(gnus-server-equal method (gnus-info-method info)))
(let* ((group (gnus-info-group info))
(spec (gnus-group-find-parameter group 'sieve t)))
`(let (gnus-position)
,@(gnus-complex-form-to-spec form spec-alist)
(if gnus-position
- (gnus-put-text-property gnus-position (1+ gnus-position)
+ (gnus-put-text-property gnus-position (1+ gnus-position)
'gnus-position t)))
`(progn
,@(gnus-complex-form-to-spec form spec-alist)))))))
%s status
%a agent covered
-General format specifiers can also be used.
+General format specifiers can also be used.
See (gnus)Formatting Variables."
:link '(custom-manual "(gnus)Formatting Variables")
:group 'gnus-server-visual
%S The subject
-General format specifiers can also be used.
+General format specifiers can also be used.
See (gnus)Formatting Variables."
:link '(custom-manual "(gnus)Formatting Variables")
:group 'gnus-threading
(when (> (length days) 0)
(setq days (read days)))
(if (numberp days)
- (progn
+ (progn
(setq days-got t)
(if (< days 0)
- (progn
+ (progn
(setq younger (not younger))
(setq days (* days -1)))))
(message "Please enter a number.")
%a Number of unread articles in the groups in the topic.
%A Number of unread articles in the groups in the topic and its subtopics.
-General format specifiers can also be used.
+General format specifiers can also be used.
See (gnus)Formatting Variables."
:link '(custom-manual "(gnus)Formatting Variables")
:type 'string
(defalias 'gnus-put-text-property 'gnus-xmas-put-text-property)
(defalias 'gnus-deactivate-mark 'ignore)
(defalias 'gnus-window-edges 'window-pixel-edges)
-
+
(if (and (<= emacs-major-version 19)
(< emacs-minor-version 14))
(defalias 'gnus-set-text-properties 'gnus-xmas-set-text-properties))
This restriction may disappear in later versions of Gnus.
-General format specifiers can also be used.
+General format specifiers can also be used.
See (gnus)Formatting Variables."
:link '(custom-manual "(gnus)Formatting Variables")
:type 'string
(aset dst idx (+ (* (hex-char-to-num (aref string pos)) 16)
(hex-char-to-num (aref string (1+ pos)))))
(setq idx (1+ idx)
- pos (+ 2 pos)))
+ pos (+ 2 pos)))
dst))
(defun encode-hex-string (string)
;;; (aset dst idx (num-to-hex-char (logand (aref string pos) 15)))
(aset dst idx (num-to-hex-char (% (aref string pos) 16)))
(setq idx (1+ idx)
- pos (1+ pos)))
+ pos (1+ pos)))
dst))
(provide 'hex-util)
((eq c ?,)
(setq address
(condition-case nil
- (ietf-drums-parse-address
+ (ietf-drums-parse-address
(buffer-substring beg (point)))
(error nil)))
(if address (push address pairs))
(forward-char 1))))
(setq address
(condition-case nil
- (ietf-drums-parse-address
+ (ietf-drums-parse-address
(buffer-substring beg (point)))
(error nil)))
(if address (push address pairs))
'((iso-8859-15 . iso-8859-1)))
;; Windows-1252 is actually a superset of Latin-1. See also
;; `gnus-article-dumbquotes-map'.
- ,@(unless (mm-coding-system-p 'windows-1252)
+ ,@(unless (mm-coding-system-p 'windows-1252)
(if (mm-coding-system-p 'cp1252)
'((windows-1252 . cp1252))
'((windows-1252 . iso-8859-1))))
`iso-2022-jp-2' convert ISO-2022-jp to ISO-2022-jp-2 if ISO-2022-jp-2 exists."
)
-(defvar mm-iso-8859-15-compatible
+(defvar mm-iso-8859-15-compatible
'((iso-8859-1 "\xA4\xA6\xA8\xB4\xB8\xBC\xBD\xBE")
(iso-8859-9 "\xA4\xA6\xA8\xB4\xB8\xBC\xBD\xBE\xD0\xDD\xDE\xF0\xFD\xFE"))
"ISO-8859-15 exchangeable coding systems and inconvertible characters.")
(defvar mm-iso-8859-x-to-15-table
(and (fboundp 'coding-system-p)
(mm-coding-system-p 'iso-8859-15)
- (mapcar
+ (mapcar
(lambda (cs)
(if (mm-coding-system-p (car cs))
- (let ((c (string-to-char
+ (let ((c (string-to-char
(decode-coding-string "\341" (car cs)))))
(cons (char-charset c)
(cons
- (- (string-to-char
+ (- (string-to-char
(decode-coding-string "\341" 'iso-8859-15)) c)
- (string-to-list (decode-coding-string (car (cdr cs))
+ (string-to-list (decode-coding-string (car (cdr cs))
(car cs))))))
'(gnus-charset 0)))
mm-iso-8859-15-compatible))
default-enable-multibyte-characters
(fboundp 'set-buffer-multibyte))
"Emacs mule.")
-
+
(defvar mm-mule4-p (and mm-emacs-mule
(fboundp 'charsetp)
(not (charsetp 'eight-bit-control)))
Only used in Emacs Mule 4."
(set-buffer-multibyte t))
(defalias 'mm-enable-multibyte-mule4 'ignore))
-
+
(if mm-mule4-p
(defun mm-disable-multibyte-mule4 ()
"Disable multibyte in the current buffer.
(goto-char (point-min))
(skip-chars-forward "\0-\177")
(while (not (eobp))
- (cond
- ((not (setq item (assq (char-charset (setq c (char-after)))
+ (cond
+ ((not (setq item (assq (char-charset (setq c (char-after)))
mm-iso-8859-x-to-15-table)))
(forward-char))
((memq c (cdr (cdr item)))
(setq inconvertible t)
(forward-char))
(t
- (insert-before-markers (prog1 (+ c (car (cdr item)))
+ (insert-before-markers (prog1 (+ c (car (cdr item)))
(delete-char 1))))
(skip-chars-forward "\0-\177"))))
(not inconvertible))))
;; system that has one.
(let ((systems (find-coding-systems-region b e)))
(when mm-coding-system-priorities
- (setq systems
+ (setq systems
(sort systems 'mm-sort-coding-systems-predicate)))
;; Fixme: The `mime-charset' (`x-ctext') of `compound-text'
;; is not in the IANA list.
charsets))
;; Otherwise we're not multibyte, XEmacs or a single coding
;; system won't cover it.
- (setq charsets
+ (setq charsets
(mm-delete-duplicates
(mapcar 'mm-mime-charset
(delq 'ascii
Equivalent to `progn' in XEmacs"
(let ((multibyte (make-symbol "multibyte"))
(buffer (make-symbol "buffer")))
- `(if mm-emacs-mule
- (let ((,multibyte enable-multibyte-characters)
+ `(if mm-emacs-mule
+ (let ((,multibyte enable-multibyte-characters)
(,buffer (current-buffer)))
(unwind-protect
(let (default-enable-multibyte-characters)
(let ((multibyte (make-symbol "multibyte"))
(buffer (make-symbol "buffer")))
`(if mm-mule4-p
- (let ((,multibyte enable-multibyte-characters)
+ (let ((,multibyte enable-multibyte-characters)
(,buffer (current-buffer)))
(unwind-protect
(let (default-enable-multibyte-characters)
handle. FUNCTION is a Lisp function which is called with the MML
handle to tweak the part.")
-(defvar mml-tweak-sexp-alist
+(defvar mml-tweak-sexp-alist
'((mml-externalize-attachments . mml-tweak-externalize-attachments))
"A list of (SEXP . FUNCTION) for tweaking MML parts.
SEXP is a s-expression. If the evaluation of SEXP is non-nil, FUNCTION
(list
(intern (downcase (cdr (assq 'charset tag))))))
(t
- (mm-find-mime-charset-region point (point)
+ (mm-find-mime-charset-region point (point)
mm-hack-charsets))))
(when (and (not raw) (memq nil charsets))
(if (or (memq 'unknown-encoding mml-confirmation-set)
(defun mml-tweak-externalize-attachments (cont)
"Tweak attached files as external parts."
(let (filename-cons)
- (when (and (eq (car cont) 'part)
+ (when (and (eq (car cont) 'part)
(not (cdr (assq 'buffer cont)))
(and (setq filename-cons (assq 'filename cont))
(not (equal (cdr (assq 'nofile cont)) "yes"))))
;;; mml-gpg-old.el --- Old PGP message format (RFC 1991) support for MML
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
-;; Author: Sascha Lüdecke <sascha@meta-x.de>,
+;; Author: Sascha Ldecke <sascha@meta-x.de>,
;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue)
;; Keywords PGP
(defun mml1991-mailcrypt-sign (cont)
(let ((text (current-buffer))
- headers signature
- (result-buffer (get-buffer-create "*GPG Result*")))
+ headers signature
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Save MIME Content[^ ]+: headers from signing
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (setq headers (buffer-substring (point-min) (point)))
- (kill-region (point-min) (point))))
+ (progn
+ (setq headers (buffer-substring (point-min) (point)))
+ (kill-region (point-min) (point))))
(goto-char (point-max))
(unless (bolp)
(insert "\n"))
(defun mml1991-mailcrypt-encrypt (cont)
(let ((text (current-buffer))
cipher
- (result-buffer (get-buffer-create "*GPG Result*")))
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Strip MIME Content[^ ]: headers since it will be ASCII ARMOURED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (kill-region (point-min) (point))))
+ (progn
+ (kill-region (point-min) (point))))
(mm-with-unibyte-current-buffer-mule4
(with-temp-buffer
(setq cipher (current-buffer))
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
(set-buffer text)
- (kill-region (point-min) (point-max))
+ (kill-region (point-min) (point-max))
;;(insert "Content-Type: application/pgp-encrypted\n\n")
;;(insert "Version: 1\n\n")
- (insert "\n")
+ (insert "\n")
(insert-buffer cipher)
(goto-char (point-max))))))
(defun mml1991-gpg-sign (cont)
(let ((text (current-buffer))
- headers signature
- (result-buffer (get-buffer-create "*GPG Result*")))
+ headers signature
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Save MIME Content[^ ]+: headers from signing
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (setq headers (buffer-substring (point-min) (point)))
- (kill-region (point-min) (point))))
+ (progn
+ (setq headers (buffer-substring (point-min) (point)))
+ (kill-region (point-min) (point))))
(goto-char (point-max))
(unless (bolp)
(insert "\n"))
(quoted-printable-decode-region (point-min) (point-max))
(with-temp-buffer
(unless (gpg-sign-cleartext text (setq signature (current-buffer))
- result-buffer
- nil
- (message-options-get 'message-sender))
+ result-buffer
+ nil
+ (message-options-get 'message-sender))
(unless (> (point-max) (point-min))
(pop-to-buffer result-buffer)
(error "Sign error")))
(defun mml1991-gpg-encrypt (cont)
(let ((text (current-buffer))
cipher
- (result-buffer (get-buffer-create "*GPG Result*")))
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Strip MIME Content[^ ]: headers since it will be ASCII ARMOURED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (kill-region (point-min) (point))))
+ (progn
+ (kill-region (point-min) (point))))
(mm-with-unibyte-current-buffer-mule4
(with-temp-buffer
(unless (gpg-sign-encrypt
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
(set-buffer text)
- (kill-region (point-min) (point-max))
+ (kill-region (point-min) (point-max))
;;(insert "Content-Type: application/pgp-encrypted\n\n")
;;(insert "Version: 1\n\n")
- (insert "\n")
+ (insert "\n")
(insert-buffer cipher)
(goto-char (point-max))))))
(defun mml2015-gpg-pretty-print-fpr (fingerprint)
(let* ((result "")
- (fpr-length (string-width fingerprint))
- (n-slice 0)
- slice)
+ (fpr-length (string-width fingerprint))
+ (n-slice 0)
+ slice)
(setq fingerprint (string-to-list fingerprint))
(while fingerprint
(setq fpr-length (- fpr-length 4))
(setq fingerprint (nthcdr 4 fingerprint))
(setq n-slice (1+ n-slice))
(setq result
- (concat
- result
- (case n-slice
- (1 slice)
- (otherwise (concat " " slice))))))
+ (concat
+ result
+ (case n-slice
+ (1 slice)
+ (otherwise (concat " " slice))))))
result))
-
+
(defun mml2015-gpg-extract-signature-details ()
(goto-char (point-min))
(if (boundp 'gpg-unabbrev-trust-alist)
"^\\[GNUPG:\\] GOODSIG [0-9A-Za-z]* \\(.*\\)$"
nil t)
(match-string 1)))
- (fprint (and (re-search-forward
- "^\\[GNUPG:\\] VALIDSIG \\([0-9a-zA-Z]*\\) "
+ (fprint (and (re-search-forward
+ "^\\[GNUPG:\\] VALIDSIG \\([0-9a-zA-Z]*\\) "
nil t)
- (match-string 1)))
- (trust (and (re-search-forward "^\\[GNUPG:\\] \\(TRUST_.*\\)$" nil t)
- (match-string 1)))
- (trust-good-enough-p
- (cdr (assoc (cdr (assoc trust gpg-unabbrev-trust-alist))
+ (match-string 1)))
+ (trust (and (re-search-forward "^\\[GNUPG:\\] \\(TRUST_.*\\)$" nil t)
+ (match-string 1)))
+ (trust-good-enough-p
+ (cdr (assoc (cdr (assoc trust gpg-unabbrev-trust-alist))
mml2015-trust-boundaries-alist))))
(if (and signer trust fprint)
(concat signer
(error
(mm-set-handle-multipart-parameter
mm-security-handle 'gnus-details (mml2015-format-error err))
- (mm-set-handle-multipart-parameter
- mm-security-handle 'gnus-info "Error.")
- (setq info-is-set-p t)
+ (mm-set-handle-multipart-parameter
+ mm-security-handle 'gnus-info "Error.")
+ (setq info-is-set-p t)
nil)
(quit
(mm-set-handle-multipart-parameter
mm-security-handle 'gnus-details "Quit.")
- (mm-set-handle-multipart-parameter
- mm-security-handle 'gnus-info "Quit.")
- (setq info-is-set-p t)
+ (mm-set-handle-multipart-parameter
+ mm-security-handle 'gnus-info "Quit.")
+ (setq info-is-set-p t)
nil))
- (unless info-is-set-p
- (mm-set-handle-multipart-parameter
- mm-security-handle 'gnus-info "Failed"))
+ (unless info-is-set-p
+ (mm-set-handle-multipart-parameter
+ mm-security-handle 'gnus-info "Failed"))
(throw 'error handle)))
(mm-set-handle-multipart-parameter
mm-security-handle 'gnus-info
(nnimap-strict-function :tag "User-defined function"))
(repeat :menu-tag "Multi-server (extended)"
:tag "Multi-server list"
- (list (regexp :tag "Server regexp")
+ (list (regexp :tag "Server regexp")
(list (regexp :tag "Incoming Mailbox regexp")
(repeat :tag "Rules for matching server(s) and mailbox(es)"
(list (string :tag "Destination mailbox")
(function :format "%v" nnmail-)
string))
-(defcustom nnmail-fancy-expiry-targets nil
+(defcustom nnmail-fancy-expiry-targets nil
"Determine expiry target based on articles using fancy techniques.
This is a list of (\"HEADER\" \"REGEXP\" \"TARGET\") entries. If
:type '(repeat (list (choice :tag "Match against"
(string :tag "Header")
(const to-from))
- regexp
- (string :tag "Target group format string"))))
+ regexp
+ (string :tag "Target group format string"))))
(defcustom nnmail-cache-accepted-message-ids nil
"If non-nil, put Message-IDs of Gcc'd articles into the duplicate cache.
(entry (assoc group nnslashdot-groups))
(sid (nth 2 entry))
(first-comments t)
- headers article subject score from date lines parent point cid
+ headers article subject score from date lines parent point cid
s startats changed)
(save-excursion
(set-buffer nnslashdot-buffer)
from date
(concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>")
(if parent
- (concat "<" (nnslashdot-sid-strip sid) "%"
+ (concat "<" (nnslashdot-sid-strip sid) "%"
parent "@slashdot>")
"")
0 lines nil nil))
(while (and articles (<= (car articles) article))
(pop articles))
(setq article (1+ article)))
- (if nnslashdot-threaded
+ (if nnslashdot-threaded
(progn
(setq start (pop startats))
(if start (setq start (+ start 2))))
(when (numberp article)
(if (= article 1)
(progn
- (re-search-forward
+ (re-search-forward
"Posted by")
(search-forward "<BR>")
(setq contents
(re-search-forward
"< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
(match-beginning 0)))))
- (setq cid (cdr (assq article
+ (setq cid (cdr (assq article
(nth 4 (assoc group nnslashdot-groups)))))
(search-forward (format "<a name=\"%s\">" cid))
(setq contents
;;; nnspool.el --- spool access for GNU Emacs
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998,
-;; 2000, 2002
+;; 2000, 2002
;; Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;;; nntp.el --- nntp access for Gnus
-;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996,
+;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996,
;; 1997, 1998, 2000, 2001, 2002
;; Free Software Foundation, Inc.
(when (re-search-forward "href=\"\\(Thread.*DateLast=\\([^\"]+\\)\\)"
nil t)
(setq url (match-string 1)
- time (nnwfm-date-to-time (gnus-url-unhex-string
+ time (nnwfm-date-to-time (gnus-url-unhex-string
(match-string 2))))
(when (and (nnwfm-new-threads-p group time)
(not (member
;; left the old code commented out below.
;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07.
((null method)
- (when (delq 'ascii
+ (when (delq 'ascii
(mm-find-charset-region (point-min) (point-max)))
(rfc2047-encode-region (point-min) (point-max))))
;;; ((null method)
(inline
(rfc2047-decode-region (point-min) (point-max)))
(buffer-string))
- (if (and m
+ (if (and m
mail-parse-charset
(not (eq mail-parse-charset 'us-ascii))
(not (eq mail-parse-charset 'gnus-decoded)))
;;
;; 2001-10-31 Committed to Oort Gnus.
;;
-;; $Id: sieve-manage.el,v 1.1.2.2 2001-11-29 00:15:39 yamaoka Exp $
+;; $Id: sieve-manage.el,v 1.1.2.3 2002-01-08 08:06:01 yamaoka Exp $
;;; Code:
(defcustom sieve-manage-authenticators '(cram-md5 plain)
"Priority of authenticators to consider when authenticating to server.")
-(defcustom sieve-manage-authenticator-alist
+(defcustom sieve-manage-authenticator-alist
'((cram-md5 sieve-manage-cram-md5-p sieve-manage-cram-md5-auth)
(plain sieve-manage-plain-p sieve-manage-plain-auth))
"Definition of authenticators.
;; (condition-case ()
(while (or (not user) (not passwd))
(setq user (or sieve-manage-username
- (read-from-minibuffer
+ (read-from-minibuffer
(concat "Managesieve username for "
sieve-manage-server ": ")
(or user sieve-manage-default-user))))
(setq passwd (or sieve-manage-password
(sieve-manage-read-passwd
- (concat "Managesieve password for " user "@"
+ (concat "Managesieve password for " user "@"
sieve-manage-server ": "))))
(when (and user passwd)
(if (funcall loginfunc user passwd)
(sieve-manage-send (concat "AUTHENTICATE \"PLAIN\" \""
(base64-encode-string
(concat (char-to-string 0)
- user
+ user
(char-to-string 0)
passwd))
"\""))
(if (funcall (nth 1 (assq stream
sieve-manage-stream-alist)) buffer)
(setq stream-changed
- (not (eq (or sieve-manage-stream
+ (not (eq (or sieve-manage-stream
sieve-manage-default-stream)
stream))
sieve-manage-stream stream
(if (sieve-manage-open-1 buffer)
(message "sieve: Reconnecting with stream `%s'...done"
sieve-manage-stream)
- (message "sieve: Reconnecting with stream `%s'...failed"
+ (message "sieve: Reconnecting with stream `%s'...failed"
sieve-manage-stream))
(setq sieve-manage-capability nil))
(if (sieve-manage-opened buffer)
;; Choose authenticator
(when (and (null sieve-manage-auth)
(not (eq sieve-manage-state 'auth)))
- (let ((auths sieve-manage-authenticators))
+ (let ((auths sieve-manage-authenticators))
(while (setq auth (pop auths))
(if (funcall (nth 1 (assq
auth
;; added keymap and menubar to hook into sieve-manage
;; 2001-10-31 version 1.2 committed to Oort Gnus
;;
-;; $Id: sieve-mode.el,v 1.1.2.2 2001-11-08 00:10:42 yamaoka Exp $
+;; $Id: sieve-mode.el,v 1.1.2.3 2002-01-08 08:06:01 yamaoka Exp $
;;; Code:
(defvar sieve-control-commands-face 'sieve-control-commands-face
"Face name used for Sieve Control Commands.")
-(defface sieve-control-commands-face
+(defface sieve-control-commands-face
'((((type tty) (class color)) (:foreground "blue" :weight light))
(((class grayscale) (background light)) (:foreground "LightGray" :bold t))
(((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
(defvar sieve-test-commands-face 'sieve-test-commands-face
"Face name used for Sieve Test Commands.")
-(defface sieve-test-commands-face
+(defface sieve-test-commands-face
'((((type tty) (class color)) (:foreground "magenta"))
(((class grayscale) (background light))
(:foreground "LightGray" :bold t :underline t))
(cons (regexp-opt '("address" "allof" "anyof" "exists" "false"
"true" "header" "not" "size" "envelope"))
'sieve-test-commands-face)
- (cons "\\Sw+:\\sw+"
+ (cons "\\Sw+:\\sw+"
'sieve-tagged-arguments-face))))
;; Syntax table
;; Key map definition
-(defvar sieve-mode-map
+(defvar sieve-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-l" 'sieve-upload)
(define-key map "\C-c\C-m" 'sieve-manage)
(set (make-local-variable 'comment-start-skip) "#+ *")
(unless (featurep 'xemacs)
(set (make-local-variable 'font-lock-defaults)
- '(sieve-font-lock-keywords nil nil ((?_ . "w")))))
+ '(sieve-font-lock-keywords nil nil ((?_ . "w")))))
(easy-menu-add-item nil nil sieve-mode-menu))
;; Menu
["Activate script" sieve-activate t]
["Deactivate script" sieve-deactivate t]))
-;; This is necessary to allow correct handling of \\[cvs-mode-diff-map]
+;; This is necessary to allow correct handling of \\[cvs-mode-diff-map]
;; in substitute-command-keys.
;(fset 'sieve-manage-mode-map sieve-manage-mode-map)
smiley-data-directory)))
(setq file nil)))
(when type
- (let ((image (find-image (list (list :type (intern type)
+ (let ((image (find-image (list (list :type (intern type)
:file file
:ascent 'center)))))
(when image
"Get email addresses contained in certificate between points B and E.
A string or a list of strings is returned."
(smime-new-details-buffer)
- (when (smime-call-openssl-region
+ (when (smime-call-openssl-region
b e smime-details-buffer "x509" "-email" "-noout")
(delete-region b e)
(insert-buffer-substring smime-details-buffer)
:group 'gnus-extract
:type '(repeat string))
-(defcustom uudecode-use-external
+(defcustom uudecode-use-external
(executable-find uudecode-decoder-program)
"*Use external uudecode program."
:group 'gnus-extract
(setq counter (1+ counter)
inputpos (1+ inputpos))
(cond ((= counter 4)
- (setq result (cons
- (concat
+ (setq result (cons
+ (concat
(char-to-string (lsh bits -16))
(char-to-string (logand (lsh bits -8) 255))
(char-to-string (logand bits 255)))
;;(error "uucode ends unexpectly")
(setq done t))
((= counter 3)
- (setq result (cons
- (concat
+ (setq result (cons
+ (concat
(char-to-string (logand (lsh bits -16) 255))
(char-to-string (logand (lsh bits -8) 255)))
result)))
((= counter 2)
- (setq result (cons
+ (setq result (cons
(char-to-string (logand (lsh bits -10) 255))
result))))
(skip-chars-forward non-data-chars end))
(defun uudecode-decode-region (start end &optional file-name)
"Uudecode region between START and END.
If FILE-NAME is non-nil, save the result to FILE-NAME."
- (if uudecode-use-external
+ (if uudecode-use-external
(uudecode-decode-region-external start end file-name)
(uudecode-decode-region-internal start end file-name)))
projects / elisp / gnus.git- / commitdiff