vm / vm-misc.el

Diff from to

vm-misc.el

 (defun vm-fill-paragraphs-containing-long-lines (len start end)
   (let ((done nil)
 	(buffer-read-only nil)
-	(fill-column (1- len))
+	(fill-column vm-paragraph-fill-column)
 	;; user doesn't want long line, so set this to zero for them.
 	(filladapt-fill-column-forward-fuzz 0))
     (save-excursion
 	     (fill-paragraph nil))
 	 (forward-line)
 	 (setq done (>= (point) end)))))))
+
+(defun vm-make-message-id ()
+  (let (hostname
+	(time (current-time)))
+    (setq hostname (cond ((string-match "\\." (system-name))
+			  (system-name))
+			 ((and (stringp mail-host-address)
+			       (string-match "\\." mail-host-address))
+			  mail-host-address)
+			 (t "gargle.gargle.HOWL")))
+    (format "<%d.%d.%d.%d@%s>"
+	    (car time) (nth 1 time) (nth 2 time)
+	    (random 1000000)
+	    hostname)))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.