Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 14641:4706508583bd
Comments censored.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 21 Feb 1996 21:39:11 +0000 |
parents | 20946c9d3806 |
children | 4d3ce6ab31d8 |
comparison
equal
deleted
inserted
replaced
14640:65151464291f | 14641:4706508583bd |
---|---|
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
25 ;; Boston, MA 02111-1307, USA. | 25 ;; Boston, MA 02111-1307, USA. |
26 | 26 |
27 ;;; Commentary: | 27 ;;; Commentary: |
28 | |
29 ;;; This file has been censored by the Communications Decency Act. | |
30 ;;; That law was passed under the guise of a ban on pornography, but | |
31 ;;; it bans far more than that. This file did not contain pornography, | |
32 ;;; but it was censored nonetheless. | |
33 | |
34 ;;; For information on US government censorship of the Internet, and | |
35 ;;; what you can do to bring back freedom of the press, see the web | |
36 ;;; site http://www.vtw.org/ | |
28 | 37 |
29 ;; The entry point of this code is | 38 ;; The entry point of this code is |
30 ;; | 39 ;; |
31 ;; mail-extract-address-components: (address) | 40 ;; mail-extract-address-components: (address) |
32 ;; | 41 ;; |
1306 (save-restriction | 1315 (save-restriction |
1307 (narrow-to-region atom-beg atom-end) | 1316 (narrow-to-region atom-beg atom-end) |
1308 (cond | 1317 (cond |
1309 | 1318 |
1310 ;; Handle X.400 addresses encoded in RFC-822. | 1319 ;; Handle X.400 addresses encoded in RFC-822. |
1311 ;; *** Shit! This has to handle the case where it is | 1320 ;; *** This has to handle the case where it is |
1312 ;; *** embedded in a quote too! | 1321 ;; *** embedded in a quote too! |
1313 ;; *** Shit! The input is being broken up into atoms | 1322 ;; *** The input is being broken up into atoms |
1314 ;; *** by periods! | 1323 ;; *** by periods! |
1315 ((looking-at mail-extr-x400-encoded-address-pattern) | 1324 ((looking-at mail-extr-x400-encoded-address-pattern) |
1316 | 1325 |
1317 ;; Copy the contents of the individual fields that | 1326 ;; Copy the contents of the individual fields that |
1318 ;; might hold name data to the beginning. | 1327 ;; might hold name data to the beginning. |