Mercurial > hg > xemacs-beta

comparison lisp/w3/url-misc.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents cca96a509cfe
children 6608ceec7cf8
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code 1 ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/07 13:24:49 3 ;; Created: 1997/04/16 05:11:58
4 ;; Version: 1.14 4 ;; Version: 1.16
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
135 (let ( 135 (let (
136 (urlobj (url-generic-parse-url url)) 136 (urlobj (url-generic-parse-url url))
137 (proxyobj (url-generic-parse-url url-using-proxy))) 137 (proxyobj (url-generic-parse-url url-using-proxy)))
138 (url-http url-using-proxy url))) 138 (url-http url-using-proxy url)))
139 139
140 (defvar url-webmail-gateway "w3mail@gmd.de"
141 "*Where to send webmail requests")
142
143 (defvar url-webmail-switches '(" " "-uu -z" "-uu -z -s 100"))
144
145 (defun url-proxy-via-mail (url)
146 ;; Return URL from a web->mail gateway
147 (let ((urlobj (url-generic-parse-url url)))
148 (funcall url-mail-command)
149 (set (make-local-variable 'inhibit-read-only) t)
150 (goto-char (point-min))
151 (if (search-forward mail-header-separator nil t)
152 (progn
153 (forward-char 1)
154 (delete-region (point) (point-max)))
155 (goto-char (point-max)))
156 (if (fboundp 'widget-minor-mode)
157 (widget-minor-mode 1))
158 (apply 'widget-create 'menu-choice
159 :value " "
160 :format "%[%t%] %v"
161 :tag "get"
162 (mapcar (lambda (x) (list 'choice-item :format "%v" x))
163 url-webmail-switches))
164 (insert " " url)
165 (if url-request-data
166 (insert "?" url-request-data))
167 (url-mail-goto-field "To")
168 (insert url-webmail-gateway)))
169
140 ;; ftp://ietf.org/internet-drafts/draft-masinter-url-data-02.txt 170 ;; ftp://ietf.org/internet-drafts/draft-masinter-url-data-02.txt
141 (defun url-data (url) 171 (defun url-data (url)
142 (set-buffer (get-buffer-create url-working-buffer)) 172 (set-buffer (get-buffer-create url-working-buffer))
143 (let ((content-type nil) 173 (let ((content-type nil)
144 (encoding nil) 174 (encoding nil)