projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(rfc2047-encode-region): Encode =? strings.
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
4725651
..
07fbc46
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/ietf-drums.el
@@
-1,5
+1,5
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002
, 2003
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-64,7
+64,6
@@
backslash and doublequote.")
(modify-syntax-entry ?> ")" table)
(modify-syntax-entry ?@ "w" table)
(modify-syntax-entry ?/ "w" table)
(modify-syntax-entry ?> ")" table)
(modify-syntax-entry ?@ "w" table)
(modify-syntax-entry ?/ "w" table)
- (modify-syntax-entry ?= " " table)
(modify-syntax-entry ?* " " table)
(modify-syntax-entry ?\; " " table)
(modify-syntax-entry ?\' " " table)
(modify-syntax-entry ?* " " table)
(modify-syntax-entry ?\; " " table)
(modify-syntax-entry ?\' " " table)
@@
-89,14
+88,14
@@
backslash and doublequote.")
(push c out)))
(range
(while (<= b c)
(push c out)))
(range
(while (<= b c)
- (push (m
m-m
ake-char 'ascii b) out)
+ (push (make-char 'ascii b) out)
(incf b))
(setq range nil))
((= i (length token))
(incf b))
(setq range nil))
((= i (length token))
- (push (m
m-m
ake-char 'ascii c) out))
+ (push (make-char 'ascii c) out))
(t
(when b
(t
(when b
- (push (m
m-m
ake-char 'ascii b) out))
+ (push (make-char 'ascii b) out))
(setq b c))))
(nreverse out)))
(setq b c))))
(nreverse out)))
@@
-264,6
+263,11
@@
backslash and doublequote.")
(concat "\"" string "\"")
string))
(concat "\"" string "\"")
string))
+(defun ietf-drums-make-address (name address)
+ (if name
+ (concat (ietf-drums-quote-string name) " <" address ">")
+ address))
+
(provide 'ietf-drums)
;;; ietf-drums.el ends here
(provide 'ietf-drums)
;;; ietf-drums.el ends here