Function: url-news-fetch-message-id

url-news-fetch-message-id is a byte-compiled function defined in url-news.el.gz.

Signature

(url-news-fetch-message-id HOST MESSAGE-ID)

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-news.el.gz
(defun url-news-fetch-message-id (host message-id)
  (let ((buf (generate-new-buffer " *url-news*")))
    (if (eq ?> (aref message-id (1- (length message-id))))
	nil
      (setq message-id (concat "<" message-id ">")))
    (if (cdr-safe (nntp-request-article message-id nil host buf))
	;; Successfully retrieved the article
	nil
      (with-current-buffer buf
	(insert "Content-type: text/html\n\n"
		"<html>\n"
		" <head>\n"
		"  <title>Error</title>\n"
		" </head>\n"
		" <body>\n"
		"  <div>\n"
		"   <h1>Error requesting article...</h1>\n"
		"   <p>\n"
		"    The status message returned by the NNTP server was:"
		"<br><hr>\n"
		"    <xmp>\n"
		(nntp-status-message)
		"    </xmp>\n"
		"   </p>\n"
		"   <p>\n"
		"    If you feel this is an error, M-x report-emacs-bug RET.\n"
		"   </p>\n"
		"  </div>\n"
		" </body>\n"
		"</html>\n"
                "<!-- Automatically generated by URL in Emacs " emacs-version " -->\n"
		)))
    buf))