* [PATCH] md4.el and ntlm.el
@ 2004-01-05 1:59 Simon Josefsson
2004-01-05 4:59 ` Katsumi Yamaoka
0 siblings, 1 reply; 5+ messages in thread
From: Simon Josefsson @ 2004-01-05 1:59 UTC (permalink / raw)
Cc: ding
Hello, first thanks for assigning the copyright of these two files.
While writing them, did anyone but you contribute to files? Have you
merged patches from anyone else? According to the FLIM ChangeLog and
CVS logs, you and Kenichi OKADA have touched them, and we have papers
for that.
Also, after installing these files into Gnus, we have made the
following modifications. Do you agree with them? Any suggestions?
Please consider including them in FLIM. The patch is against the
flim-1_14 branch in CVS.
Thanks,
Simon
2004-01-05 Simon Josefsson <jas@extundo.com>
* ntlm.el: Fix namespace. Change smb-passwd-hash into
ntlm-smb-passwd-hash, smb-owf-encrypt into ntlm-smb-owf-encrypt,
smb-passwd-hash into ntlm-smb-passwd-hash, smbdes-e-p16 into
ntlm-smb-des-e-p16, smbdes-e-p24 into ntlm-smb-des-e-p24, smbhash
into ntlm-smb-hash, smb-sp8 into ntlm-smb-sp8, smb-str-to-key into
ntlm-smb-str-to-key, smb-dohash into ntlm-smb-dohash, smb-perm1
into ntlm-smb-perm1, smb-perm2 into ntlm-smb-perm2, smb-perm3 into
ntlm-smb-perm3, smb-perm4 into ntlm-smb-perm4, smb-perm5 into
ntlm-smb-perm5, smb-perm6 into ntlm-smb-perm6, smb-sc into
ntlm-smb-sc, smb-sbox into ntlm-smb-sbox, string-permute into
ntlm-string-permute, string-lshift into ntlm-string-lshift,
string-xor into ntlm-string-xor. Suggested by
Jesper Harder <harder@myrealbox.com>.
* ntlm.el: Don't include poem.
* md4.el (print-int32, print-string-hexa): Remove. Suggested by
Jesper Harder <harder@myrealbox.com>.
--- /home/jas/lisp/flim/md4.el 2001-07-30 12:47:33.000000000 +0200
+++ gnus/lisp/md4.el 2004-01-05 02:56:49.000000000 +0100
@@ -1,5 +1,6 @@
;;; md4.el --- MD4 Message Digest Algorithm.
+;; Copyright (C) 2004 Free Software Foundation, Inc.
;; Copyright (C) 2001 Taro Kawagishi
;; Author: Taro Kawagishi <tarok@transpulse.org>
;; Keywords: MD4
@@ -28,16 +29,6 @@
;;;
;;; MD4 hash calculation
-(defun print-int32 (int32)
- "print 32 bits integer in 4 bytes string as little endian"
- (let ((h (car int32)) (l (cdr int32)))
- (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8))))
-
-(defun print-string-hexa (str)
- "print a string in hexadecimal"
- (let (out)
- (mapcar (function (lambda (x) (concat out (format "%x" x)))) str)))
-
(defvar md4-buffer (make-vector 4 '(0 . 0))
"work buffer of four 32-bit integers")
--- /home/jas/lisp/flim/ntlm.el 2001-07-30 12:47:33.000000000 +0200
+++ gnus/lisp/ntlm.el 2004-01-05 02:42:19.000000000 +0100
@@ -63,7 +63,6 @@
;;; Code:
-(require 'poem)
(require 'md4)
;;;
@@ -111,7 +110,7 @@
the NTLM based server for the user USER and the password hash list
PASSWORD-HASHES. NTLM uses two hash values which are represented
by PASSWORD-HASHES. PASSWORD-HASHES should be a return value of
- (list (smb-passwd-hash password) (ntlm-md4hash password))"
+ (list (ntlm-smb-passwd-hash password) (ntlm-md4hash password))"
(let* ((rchallenge (string-as-unibyte challenge))
;; get fields within challenge struct
;;(ident (substring rchallenge 0 8)) ;ident, 8 bytes
@@ -140,9 +139,9 @@
;; generate response data
(setq lmRespData
- (smb-owf-encrypt (car password-hashes) challengeData))
+ (ntlm-smb-owf-encrypt (car password-hashes) challengeData))
(setq ntRespData
- (smb-owf-encrypt (cadr password-hashes) challengeData))
+ (ntlm-smb-owf-encrypt (cadr password-hashes) challengeData))
;; get offsets to fields to pack the response struct in a string
(setq lu (length user))
@@ -211,7 +210,7 @@
(defun ntlm-get-password-hashes (password)
"Return a pair of SMB hash and NT MD4 hash of the given password PASSWORD"
- (list (smb-passwd-hash password)
+ (list (ntlm-smb-passwd-hash password)
(ntlm-md4hash password)))
(defun ntlm-ascii2unicode (str len)
@@ -234,46 +233,46 @@
j (+ 2 j)))
buf))
-(defun smb-passwd-hash (passwd)
+(defun ntlm-smb-passwd-hash (passwd)
"Return the SMB password hash string of 16 bytes long for the given password
string PASSWD. PASSWD is truncated to 14 bytes if longer."
(let ((len (min (length passwd) 14)))
- (smbdes-e-p16
+ (ntlm-smb-des-e-p16
(concat (substring (upcase passwd) 0 len) ;fill top 14 bytes with passwd
(make-string (- 15 len) 0)))))
-(defun smb-owf-encrypt (passwd c8)
+(defun ntlm-smb-owf-encrypt (passwd c8)
"Return the response string of 24 bytes long for the given password
string PASSWD based on the DES encryption. PASSWD is of at most 14
bytes long and the challenge string C8 of 8 bytes long."
(let ((len (min (length passwd) 16)) p22)
(setq p22 (concat (substring passwd 0 len) ;fill top 16 bytes with passwd
(make-string (- 22 len) 0)))
- (smbdes-e-p24 p22 c8)))
+ (ntlm-smb-des-e-p24 p22 c8)))
-(defun smbdes-e-p24 (p22 c8)
+(defun ntlm-smb-des-e-p24 (p22 c8)
"Return a 24 bytes hashed string for a 21 bytes string P22 and a 8 bytes
string C8."
- (concat (smbhash c8 p22 t) ;hash first 8 bytes of p22
- (smbhash c8 (substring p22 7) t)
- (smbhash c8 (substring p22 14) t)))
+ (concat (ntlm-smb-hash c8 p22 t) ;hash first 8 bytes of p22
+ (ntlm-smb-hash c8 (substring p22 7) t)
+ (ntlm-smb-hash c8 (substring p22 14) t)))
-(defconst smb-sp8 [75 71 83 33 64 35 36 37])
+(defconst ntlm-smb-sp8 [75 71 83 33 64 35 36 37])
-(defun smbdes-e-p16 (p15)
+(defun ntlm-smb-des-e-p16 (p15)
"Return a 16 bytes hashed string for a 15 bytes string P15."
- (concat (smbhash smb-sp8 p15 t) ;hash of first 8 bytes of p15
- (smbhash smb-sp8 (substring p15 7) t) ;hash of last 8 bytes of p15
- ))
+ (concat (ntlm-smb-hash ntlm-smb-sp8 p15 t) ;hash of first 8 bytes of p15
+ (ntlm-smb-hash ntlm-smb-sp8 ;hash of last 8 bytes of p15
+ (substring p15 7) t)))
-(defun smbhash (in key forw)
+(defun ntlm-smb-hash (in key forw)
"Return the hash string of length 8 for a string IN of length 8 and
a string KEY of length 8. FORW is t or nil."
(let ((out (make-string 8 0))
outb ;string of length 64
(inb (make-string 64 0))
(keyb (make-string 64 0))
- (key2 (smb-str-to-key key))
+ (key2 (ntlm-smb-str-to-key key))
(i 0) aa)
(while (< i 64)
(unless (zerop (logand (aref in (/ i 8)) (lsh 1 (- 7 (% i 8)))))
@@ -281,7 +280,7 @@
(unless (zerop (logand (aref key2 (/ i 8)) (lsh 1 (- 7 (% i 8)))))
(aset keyb i 1))
(setq i (1+ i)))
- (setq outb (smb-dohash inb keyb forw))
+ (setq outb (ntlm-smb-dohash inb keyb forw))
(setq i 0)
(while (< i 64)
(unless (zerop (aref outb i))
@@ -291,7 +290,7 @@
(setq i (1+ i)))
out))
-(defun smb-str-to-key (str)
+(defun ntlm-smb-str-to-key (str)
"Return a string of length 8 for the given string STR of length 7."
(let ((key (make-string 8 0))
(i 7))
@@ -320,7 +319,7 @@
(setq i (1- i)))
key))
-(defconst smb-perm1 [57 49 41 33 25 17 9
+(defconst ntlm-smb-perm1 [57 49 41 33 25 17 9
1 58 50 42 34 26 18
10 2 59 51 43 35 27
19 11 3 60 52 44 36
@@ -329,7 +328,7 @@
14 6 61 53 45 37 29
21 13 5 28 20 12 4])
-(defconst smb-perm2 [14 17 11 24 1 5
+(defconst ntlm-smb-perm2 [14 17 11 24 1 5
3 28 15 6 21 10
23 19 12 4 26 8
16 7 27 20 13 2
@@ -338,7 +337,7 @@
44 49 39 56 34 53
46 42 50 36 29 32])
-(defconst smb-perm3 [58 50 42 34 26 18 10 2
+(defconst ntlm-smb-perm3 [58 50 42 34 26 18 10 2
60 52 44 36 28 20 12 4
62 54 46 38 30 22 14 6
64 56 48 40 32 24 16 8
@@ -347,7 +346,7 @@
61 53 45 37 29 21 13 5
63 55 47 39 31 23 15 7])
-(defconst smb-perm4 [32 1 2 3 4 5
+(defconst ntlm-smb-perm4 [32 1 2 3 4 5
4 5 6 7 8 9
8 9 10 11 12 13
12 13 14 15 16 17
@@ -356,7 +355,7 @@
24 25 26 27 28 29
28 29 30 31 32 1])
-(defconst smb-perm5 [16 7 20 21
+(defconst ntlm-smb-perm5 [16 7 20 21
29 12 28 17
1 15 23 26
5 18 31 10
@@ -365,7 +364,7 @@
19 13 30 6
22 11 4 25])
-(defconst smb-perm6 [40 8 48 16 56 24 64 32
+(defconst ntlm-smb-perm6 [40 8 48 16 56 24 64 32
39 7 47 15 55 23 63 31
38 6 46 14 54 22 62 30
37 5 45 13 53 21 61 29
@@ -374,9 +373,9 @@
34 2 42 10 50 18 58 26
33 1 41 9 49 17 57 25])
-(defconst smb-sc [1 1 2 2 2 2 2 2 1 2 2 2 2 2 2 1])
+(defconst ntlm-smb-sc [1 1 2 2 2 2 2 2 1 2 2 2 2 2 2 1])
-(defconst smb-sbox [[[14 4 13 1 2 15 11 8 3 10 6 12 5 9 0 7]
+(defconst ntlm-smb-sbox [[[14 4 13 1 2 15 11 8 3 10 6 12 5 9 0 7]
[ 0 15 7 4 14 2 13 1 10 6 12 11 9 5 3 8]
[ 4 1 14 8 13 6 2 11 15 12 9 7 3 10 5 0]
[15 12 8 2 4 9 1 7 5 11 3 14 10 0 6 13]]
@@ -409,7 +408,7 @@
[ 7 11 4 1 9 12 14 2 0 6 10 13 15 3 5 8]
[ 2 1 14 7 4 10 8 13 15 12 9 0 3 5 6 11]]])
-(defsubst string-permute (in perm n)
+(defsubst ntlm-string-permute (in perm n)
"Return a string of length N for a string IN and a permutation vector
PERM of size N. The length of IN should be height of PERM."
(let ((i 0) (out (make-string n 0)))
@@ -418,13 +417,13 @@
(setq i (1+ i)))
out))
-(defsubst string-lshift (str count len)
+(defsubst ntlm-string-lshift (str count len)
"Return a string by circularly shifting a string STR by COUNT to the left.
length of STR is LEN."
(let ((c (% count len)))
(concat (substring str c len) (substring str 0 c))))
-(defsubst string-xor (in1 in2 n)
+(defsubst ntlm-string-xor (in1 in2 n)
"Return exclusive-or of sequences in1 and in2"
(let ((w (make-string n 0)) (i 0))
(while (< i n)
@@ -432,7 +431,7 @@
(setq i (1+ i)))
w))
-(defun smb-dohash (in key forw)
+(defun ntlm-smb-dohash (in key forw)
"Return the hash value for a string IN and a string KEY.
Length of IN and KEY are 64. FORW non nill means forward, nil means
backward."
@@ -446,19 +445,19 @@
r ;string of length 32
rl ;string of length 64
(i 0) (j 0) (k 0))
- (setq pk1 (string-permute key smb-perm1 56))
+ (setq pk1 (ntlm-string-permute key ntlm-smb-perm1 56))
(setq c (substring pk1 0 28))
(setq d (substring pk1 28 56))
(setq i 0)
(while (< i 16)
- (setq c (string-lshift c (aref smb-sc i) 28))
- (setq d (string-lshift d (aref smb-sc i) 28))
+ (setq c (ntlm-string-lshift c (aref ntlm-smb-sc i) 28))
+ (setq d (ntlm-string-lshift d (aref ntlm-smb-sc i) 28))
(setq cd (concat (substring c 0 28) (substring d 0 28)))
- (aset ki i (string-permute cd smb-perm2 48))
+ (aset ki i (ntlm-string-permute cd ntlm-smb-perm2 48))
(setq i (1+ i)))
- (setq pd1 (string-permute in smb-perm3 64))
+ (setq pd1 (ntlm-string-permute in ntlm-smb-perm3 64))
(setq l (substring pd1 0 32))
(setq r (substring pd1 32 64))
@@ -472,8 +471,8 @@
r2 ;string of length 32
jj m n bj sbox-jmn)
(while (< i 16)
- (setq er (string-permute r smb-perm4 48))
- (setq erk (string-xor er
+ (setq er (ntlm-string-permute r ntlm-smb-perm4 48))
+ (setq erk (ntlm-string-xor er
(aref ki (if forw i (- 15 i)))
48))
(setq j 0)
@@ -490,7 +489,7 @@
(lsh (aref bj 3) 1)
(aref bj 4)))
(setq k 0)
- (setq sbox-jmn (aref (aref (aref smb-sbox j) m) n))
+ (setq sbox-jmn (aref (aref (aref ntlm-smb-sbox j) m) n))
(while (< k 4)
(aset bj k
(if (zerop (logand sbox-jmn (lsh 1 (- 3 k))))
@@ -504,13 +503,13 @@
(setq cb (concat cb (substring (aref b j) 0 4)))
(setq j (1+ j)))
- (setq pcb (string-permute cb smb-perm5 32))
- (setq r2 (string-xor l pcb 32))
+ (setq pcb (ntlm-string-permute cb ntlm-smb-perm5 32))
+ (setq r2 (ntlm-string-xor l pcb 32))
(setq l r)
(setq r r2)
(setq i (1+ i))))
(setq rl (concat r l))
- (string-permute rl smb-perm6 64)))
+ (ntlm-string-permute rl ntlm-smb-perm6 64)))
(defun ntlm-md4hash (passwd)
"Return the 16 bytes MD4 hash of a string PASSWD after converting it
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: [PATCH] md4.el and ntlm.el
2004-01-05 1:59 [PATCH] md4.el and ntlm.el Simon Josefsson
@ 2004-01-05 4:59 ` Katsumi Yamaoka
2004-01-06 9:45 ` Taro Kawagishi
0 siblings, 1 reply; 5+ messages in thread
From: Katsumi Yamaoka @ 2004-01-05 4:59 UTC (permalink / raw)
Cc: Simon Josefsson, emacs-mime-en, ding
Hi,
>>>>> In [emacs-mime-en : No.00115]
>>>>> Simon Josefsson <jas@extundo.com> wrote:
> Hello, first thanks for assigning the copyright of these two files.
> While writing them, did anyone but you contribute to files? Have you
> merged patches from anyone else? According to the FLIM ChangeLog and
> CVS logs, you and Kenichi OKADA have touched them, and we have papers
> for that.
> Also, after installing these files into Gnus, we have made the
> following modifications. Do you agree with them? Any suggestions?
> Please consider including them in FLIM. The patch is against the
> flim-1_14 branch in CVS.
> Thanks,
> Simon
[...]
I also add the following change to ntlm.el in Gnus. Although
it is needless if APEL provides `string-as-unibyte' for XEmacs,
Gnus doesn't use it.
2004-01-05 Katsumi Yamaoka <yamaoka@jpl.org>
* ntlm.el (ntlm-string-as-unibyte): New macro.
(ntlm-build-auth-response): Use it.
--- ntlm.el~ 2004-01-05 02:12:22 +0000
+++ ntlm.el 2004-01-05 04:44:07 +0000
@@ -105,13 +105,19 @@
domain ;bufer field
)))
+(eval-when-compile
+ (defmacro ntlm-string-as-unibyte (string)
+ (if (fboundp 'string-as-unibyte)
+ `(string-as-unibyte ,string)
+ string)))
+
(defun ntlm-build-auth-response (challenge user password-hashes)
"Return the response string to a challenge string CHALLENGE given by
the NTLM based server for the user USER and the password hash list
PASSWORD-HASHES. NTLM uses two hash values which are represented
by PASSWORD-HASHES. PASSWORD-HASHES should be a return value of
(list (ntlm-smb-passwd-hash password) (ntlm-md4hash password))"
- (let* ((rchallenge (string-as-unibyte challenge))
+ (let* ((rchallenge (ntlm-string-as-unibyte challenge))
;; get fields within challenge struct
;;(ident (substring rchallenge 0 8)) ;ident, 8 bytes
;;(msgType (substring rchallenge 8 12)) ;msgType, 4 bytes
Regards,
--
Katsumi Yamaoka <yamaoka@jpl.org>
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: [PATCH] md4.el and ntlm.el
2004-01-05 4:59 ` Katsumi Yamaoka
@ 2004-01-06 9:45 ` Taro Kawagishi
2004-01-06 10:34 ` Katsumi Yamaoka
2004-01-06 12:41 ` Simon Josefsson
0 siblings, 2 replies; 5+ messages in thread
From: Taro Kawagishi @ 2004-01-06 9:45 UTC (permalink / raw)
Cc: emacs-mime-en, ding, yamaoka
Hello,
I haven't heard of changes for these files by other people, except for the one
just reported by "Katsumi Yamaoka" <yamaoka@jpl.org> (as attached below).
I am perfectly happy with the modifications you made with names.
Thank you for polishing the code.
I am not involved in maintaining FLIM code, so other people might want to consider
taking your modifications.
--Taro
At Mon, 5 Jan 2004 10:59:39 +0900,
Simon Josefsson wrote:
|
| Hello, first thanks for assigning the copyright of these two files.
| While writing them, did anyone but you contribute to files? Have you
| merged patches from anyone else? According to the FLIM ChangeLog and
| CVS logs, you and Kenichi OKADA have touched them, and we have papers
| for that.
|
| Also, after installing these files into Gnus, we have made the
| following modifications. Do you agree with them? Any suggestions?
| Please consider including them in FLIM. The patch is against the
| flim-1_14 branch in CVS.
|
| Thanks,
| Simon
|
| 2004-01-05 Simon Josefsson <jas@extundo.com>
|
| * ntlm.el: Fix namespace. Change smb-passwd-hash into
| ntlm-smb-passwd-hash, smb-owf-encrypt into ntlm-smb-owf-encrypt,
| smb-passwd-hash into ntlm-smb-passwd-hash, smbdes-e-p16 into
| ntlm-smb-des-e-p16, smbdes-e-p24 into ntlm-smb-des-e-p24, smbhash
| into ntlm-smb-hash, smb-sp8 into ntlm-smb-sp8, smb-str-to-key into
| ntlm-smb-str-to-key, smb-dohash into ntlm-smb-dohash, smb-perm1
| into ntlm-smb-perm1, smb-perm2 into ntlm-smb-perm2, smb-perm3 into
| ntlm-smb-perm3, smb-perm4 into ntlm-smb-perm4, smb-perm5 into
| ntlm-smb-perm5, smb-perm6 into ntlm-smb-perm6, smb-sc into
| ntlm-smb-sc, smb-sbox into ntlm-smb-sbox, string-permute into
| ntlm-string-permute, string-lshift into ntlm-string-lshift,
| string-xor into ntlm-string-xor. Suggested by
| Jesper Harder <harder@myrealbox.com>.
|
| * ntlm.el: Don't include poem.
|
| * md4.el (print-int32, print-string-hexa): Remove. Suggested by
| Jesper Harder <harder@myrealbox.com>.
|
At Mon, 5 Jan 2004 13:59:48 +0900,
Katsumi Yamaoka wrote:
|
| Hi,
|
| >>>>> In [emacs-mime-en : No.00115]
| >>>>> Simon Josefsson <jas@extundo.com> wrote:
|
| > Hello, first thanks for assigning the copyright of these two files.
| > While writing them, did anyone but you contribute to files? Have you
| > merged patches from anyone else? According to the FLIM ChangeLog and
| > CVS logs, you and Kenichi OKADA have touched them, and we have papers
| > for that.
|
| > Also, after installing these files into Gnus, we have made the
| > following modifications. Do you agree with them? Any suggestions?
| > Please consider including them in FLIM. The patch is against the
| > flim-1_14 branch in CVS.
|
| > Thanks,
| > Simon
|
| [...]
|
| I also add the following change to ntlm.el in Gnus. Although
| it is needless if APEL provides `string-as-unibyte' for XEmacs,
| Gnus doesn't use it.
|
| 2004-01-05 Katsumi Yamaoka <yamaoka@jpl.org>
|
| * ntlm.el (ntlm-string-as-unibyte): New macro.
| (ntlm-build-auth-response): Use it.
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: [PATCH] md4.el and ntlm.el
2004-01-06 9:45 ` Taro Kawagishi
@ 2004-01-06 10:34 ` Katsumi Yamaoka
2004-01-06 12:41 ` Simon Josefsson
1 sibling, 0 replies; 5+ messages in thread
From: Katsumi Yamaoka @ 2004-01-06 10:34 UTC (permalink / raw)
Cc: Simon Josefsson, emacs-mime-en, ding
>>>>> In [emacs-mime-en : No.00126]
>>>>> Taro Kawagishi <tarok@transpulse.org> wrote:
> Hello,
> I haven't heard of changes for these files by other people, except
> for the one just reported by "Katsumi Yamaoka" <yamaoka@jpl.org> (as
> attached below).
> I am perfectly happy with the modifications you made with names.
> Thank you for polishing the code.
> I am not involved in maintaining FLIM code, so other people might
> want to consider taking your modifications.
> --Taro
I've applied Simon's patch to the flim-1_14 branch. If there's
any problem, please let me know. Thank you!
--
Katsumi Yamaoka <yamaoka@jpl.org>
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: [PATCH] md4.el and ntlm.el
2004-01-06 9:45 ` Taro Kawagishi
2004-01-06 10:34 ` Katsumi Yamaoka
@ 2004-01-06 12:41 ` Simon Josefsson
1 sibling, 0 replies; 5+ messages in thread
From: Simon Josefsson @ 2004-01-06 12:41 UTC (permalink / raw)
Cc: emacs-mime-en, ding, yamaoka
> Hello,
>
> I haven't heard of changes for these files by other people, except for the
> one just reported by "Katsumi Yamaoka" <yamaoka@jpl.org> (as attached
> below).
Hi. Those are FSF owned, so that's no problem.
> I am perfectly happy with the modifications you made with names.
> Thank you for polishing the code.
>
> I am not involved in maintaining FLIM code, so other people might want to
> consider taking your modifications.
Ok. Thanks for the response.
/Simon
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2004-01-06 12:41 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-01-05 1:59 [PATCH] md4.el and ntlm.el Simon Josefsson
2004-01-05 4:59 ` Katsumi Yamaoka
2004-01-06 9:45 ` Taro Kawagishi
2004-01-06 10:34 ` Katsumi Yamaoka
2004-01-06 12:41 ` Simon Josefsson
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).